Dosyaya bilg ikaydetme

Mesaj gönderen **naile** » 12 Oca 2004 03:27

procedure TForm1.Button1Click(Sender: TObject);
var
  Dosya : TextFile;
begin
  AssignFile(Dosya,'ayarlar.cfg');
  Rewrite(Dosya);
  Writeln(Dosya,edt_klasor.text);
  Writeln(Dosya,edt_kopyala.text);
  Writeln(Dosya,edt_sayi.text);
  CloseFile(Dosya);
end;

edt_klasor, edt_kopyala ve edt_sayi editlerine girilen değerler dosyaya kaydediliyor. Buraya kadar herşey normal ama editlere klasör yolu verdiğimde yani E:\PROGRAM gibi bir şey yazdığımda kaydetmiyor. Nedir bunun mantığı, neden kaydetmez?

Mesaj gönderen **mussimsek** » 12 Oca 2004 03:33

Merhaba,

aynen denedim, hiçbir problem çıkarmadan kaydetti. Delphi 7 enterprise. İlginç??

Kolay gelsin.

Mesaj gönderen **gkimirti** » 12 Oca 2004 03:33

kodu denedim sorun yok bende calısıyor

tekrar baktıgımda dosya ismidi verirken full path vermelisiniz
eger klasor ismini dialog bilesenleri ile alırsanız
aslında

Kod: Tümünü seç

AssignFile(Dosya,'ayarlar.cfg');

ifadesinde o klasır altındaki ayarlar dosyasına kaydedersiniz...
isi garantiye almak icin

Kod: Tümünü seç

AssignFile(Dosya,AppDir+'\ayarlar.cfg');

seklinde kullanmak gerek

not:

Kod: Tümünü seç

function AppDir:String;
begin
  result:=ExtractFileDir(Application.ExeName);
end;

Mesaj gönderen **naile** » 12 Oca 2004 03:36

rx componentlerinden DirectoryEdit kullanıyorum normal edit kullanınca bende de yazdı.

Hayret bişey

Mesaj gönderen **gkimirti** » 12 Oca 2004 03:42

aynı durum benimde basıma gelmisti hemde musterilere dagıttıktan sonra
bu yontemi buluncaya kadar tırmalamıstım.en son ini dosyaya program calısınca getcurrentdir ile pathi yazıp hallediyordıum
sonra mustafa saolsun application.exename den haberdar etti beni
ogrenmenin sonu yok
daha bakalım ne pufler ogrenecegiz...

Mesaj gönderen **naile** » 12 Oca 2004 03:43

Ama benim klasör yolu seçtirmem lazım opendialog işimi görmüyor

ne önerirsiniz

hakkus · Mesaj gönderen **hakkus** » 12 Oca 2004 04:05

merhabalar,
Ben aşağıdaki kod la sorunu çözmüştüm belki işinize yarar.
//

Kod: Tümünü seç

procedure TAnaFrm.YedYolButClick(Sender: TObject);
var
yedekYol:String;
begin
yedekYol:=edit2.Text;
ayarIni:=tinifile.Create('c:\myProgram\data\ayar.ini');

 if not DirectoryExists(yedekYol) then
    begin
    if MessageDlg(yedekYol+' Dizini'+#13+#10+
    'Bulunamadı'#13+#10+
    'Oluşturulsun mu? ',
    mtConfirmation, [mbYes, mbNo], 0, mbYes) = mrYes then
    createDir(yedekYol);
    ayarini.WriteString('YEDEK', 'YOL', yedekYol);
        if not CreateDir(yedekYol) then
        begin
        showMessage('Dizin Oluşturulamadı');
        exit;
        end;
    end;
if directoryExists(yedekYol) then
 ayarini.WriteString('YEDEK', 'YOL', yedekYol);
ayarIni.Free;

end;

Mesaj gönderen **mussimsek** » 12 Oca 2004 04:08

naile yazdı:Ama benim klasör yolu seçtirmem lazım opendialog işimi görmüyor ne önerirsiniz

http://www.delphiturkiye.com/ipapi.htm#klasore_gozat

bu işini görür sanırım.

Kolay gelsin.

Mesaj gönderen **naile** » 12 Oca 2004 04:19

Admin yazdı: http://www.delphiturkiye.com/ipapi.htm#klasore_gozat

bu işini görür sanırım.

Kolay gelsin.

Evet gördü

Herkese çok teşekkür ederim