txt dosyasına yazı yazdırma fonksiyonu.

[Shou]

merhabalar ben bir fonksiyon buldum dll içine koydum herhangi bir hata yok ama dosya içine yazı yazmıyor nerede sorun var yardımcı olursanız sevinirim.

Kod: Tümünü seç

procedure debugsave(str:string);
var
   FileName: String;
   LogFile: TextFile;
begin
   FileName:=prodizini+'debug.txt';
   AssignFile(LogFile, FileName);
   {$IOChecks off}
   try
     Append(LogFile);
   except
     ReWrite(LogFile);
   end;
   try
     WriteLn(LogFile, str);
   finally

     CloseFile(LogFile);
      {$IOChecks on}
   end;
end;

yazdırma işlemini şöyle yapıyorum.

Kod: Tümünü seç

debugsave('Dosyaya bunu yaz.');

Herhangi bir hata yok ama yazmıyor?

[Shou]

Sorunu düzelttim prodizini olan kısım'dan oluşturmuyormuş orayı sağdece dosya adı yapmak gerekıyormuş.