delphi

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
Kullanıcı avatarı
mehmet_turecan_cakmak
Üye
Mesajlar: 132
Kayıt: 02 Tem 2003 01:08
Konum: Afyon
İletişim:

delphi

Mesaj gönderen mehmet_turecan_cakmak »

selam

ilk önce iyi çalışmalar diyerek sorumu soracağım
adım mehmet türecan kendi çapımda delphide program yazıyorum
sizden öğrenmek istediğim; örneğin delphide yazdığım bir programı D sürücüsünde program klasörüne kaydettim daha sonra bu programı buradan kesip herhangi bir yere yapıştırdığımda bu program çalışmıyo yani dolayısıyla kullandığı dosyaları D sürücüsündeki program klasöründe bulmıyo bu sorunu nasıl halledebilirim bana yardımcı olursanız sevinirim
Kullanıcı avatarı
mussimsek
Admin
Mesajlar: 7586
Kayıt: 10 Haz 2003 12:26
Konum: İstanbul
İletişim:

Mesaj gönderen mussimsek »

Merhaba,

dosya path'lerini direk c:\proje\aa.txt veya d:\proje\bb.rtf gibi vermek yerine exe dosyaya göre path verin.

Mesela exe dosya ile aynı klasördeki bir aa.txt'yi kullanıyorsan : ExtractFilePath(Application.ExeName)+'aa.txt'

exe dosyanın bulunduğu klasörden bir alt data klasöründe bulunan aa.db'yi kullanıyorsan : ExtractFilePath(Application.ExeName)+'Data\aa.db'

gibi. Kolay gelsin.
Kullanıcı avatarı
mehmet_turecan_cakmak
Üye
Mesajlar: 132
Kayıt: 02 Tem 2003 01:08
Konum: Afyon
İletişim:

Mesaj gönderen mehmet_turecan_cakmak »

yardımlarınız için çok teşekkür ederim.
bişey daha bu koduformun onshow una yazıcam galiba istediğim dosyalara bu şekilde bağlantı kurabilirim galiba
iyi çalışmalar kolay gelsin
Kullanıcı avatarı
rsimsek
Admin
Mesajlar: 4482
Kayıt: 10 Haz 2003 01:48
Konum: İstanbul

Mesaj gönderen rsimsek »

Tablo ve Query leri toplu olarak bulunduran bir DataModule formu kullanıyorsan OnCreate ında aşağıdaki şekilde yazabilirsin. yada kullandığın formun OnShow unda yada OnCreate ında..

Kod: Tümünü seç

procedure TDM.DataModuleCreate(Sender: TObject);
var
  AppDir: string;
begin
  AppDir := ExtractFilePath(Application.ExeName);
  SetCurrentDir(AppDir);

  if Database1.Connected then
    Database1.Close;
  Database1.Directory := AppDir + 'Data\';

  Database1.Connected := True;
  Tablo1.Active := True;

 ...

end;
Cevapla