OpenDialog

[Laz61]

Arkadaşlar merhaba,

aşağıdaki kod open dialog kullanmadığım zaman sorunsuz çalışıyor. Fakat open dialog kullandığım zaman hata veriyor. Bir türlü çözemedim.

Hoşca kalın

procedure TForm1.FormCreate
begin
Listbox1.Items.LoadFromFile('Metinler\dat1.dat');
Listbox1.ItemIndex:=0;
end';

procedure TForm1.FormClose
Listbox1.Items.SaveToFile('Metinler\dat1.dat');
end;

procedure TForm1.Button1Click
if OpenDialog1.Execute then
Memo1.lines.loadfromfile(OpenDialog1.Filename);
end;

[unicorn64]

verdiği hatayı yazmazsanız nasıl yardımcı olabiliriz ki??

[Laz61]

Merhaba arkadaşlar

Haklısınız.

OpenDialog'la bir metin dosyası açtıktan sonra, formu kapatırken, formun close prsedüründe hata oluşuyor.

procedure TForm1.FormClose
Listbox1.Items.SaveToFile('Metinler\dat1.dat');
end;

Hatayı tespit ettim. Hata: ''\Meal\Metinler\dat1.dat'' olması lazım. Yani yolunu tam istiyor.

Olayın ilginç tarafı bu hata OpenDialog kullandığım zaman oluşuyor. Neden?

[Laz61]

Merhaba arkadaşlar

Tam yolunu vermedikten sonra open dialog çalışmıyor. Bu ise programın, verilen dizin, yerel diskin dışında çalışmaması demek.
Ancak, dat dosyaları, ana dizinde olursa sorun çıkmıyor.

Herhalde ''ExtractFilePath'' bilgim olmamakla beraber, olmalı.

Çözemedim.

[varyemez]

ExtractFilePath(Application.Exename) bu fonksiyon programınızın çalıştığı klasörü verir. Mesela C:\meal klasöründe olsun exeniz. dat dosyanız da c:\meal\metinler klasöründe olsun

SavetoFile(ExtractFilePath(Application.Exename) + 'metinler\dosya.dat') sizin işinizi görecektir.

[unicorn64]

Merhaba arkadaşlar

Haklısınız.

OpenDialog'la bir metin dosyası açtıktan sonra, formu kapatırken, formun close prsedüründe hata oluşuyor.

procedure TForm1.FormClose
Listbox1.Items.SaveToFile('Metinler\dat1.dat');
end;

Hatayı tespit ettim. Hata: ''\Meal\Metinler\dat1.dat'' olması lazım. Yani yolunu tam istiyor.

Olayın ilginç tarafı bu hata OpenDialog kullandığım zaman oluşuyor. Neden?

hala aldığınız hata mesajını yazmamışsınız...