Text dosyayı açmadan bilgi eklemek

[Lord_Ares]

Merhaba

Bilgi adında string bir değişkenim var, bu değişkene gelen bilgiyi text dosyasını açmadan text dosyadaki bilginin sonuna ekleyip kaydetmek istiyorum.
herhangi bir memo, listbox kullanmak istemediğim için Tstringlist kullanmak istedim. Fakat dosyadaki bilginin sonuna değil sürekli üstüne yazıyor. Text dosyayı açtığımda en gelen bilgi görünüyor. Tstrings tipindeki değişkeni şu şekilde denedim sonuç aynı . veri.add(bilgi) Nerede hata yaptığımı bulamadım.

With TStringList.Create do begin
text := bilgi;
SaveToFile( 'c:\deneme.txt' );
Free;

[sabanakman]

Kod: Tümünü seç

var D:TextFile;
begin
  AssignFile(D,'C:\dosya.txt');
  Append(D);
  WriteLn(D,'Bilgi');
  CloseFile(D);
end;

[Lord_Ares]

teşekkürler

[orhancc]

Şaban abinin işlemi try finally içine alırsan oluşacak herhangi bir hatada dosyanın kapandığından emin olunur.