Listbox'dan Txt ye yazma işlemi

[mertcenk]

[kod]
if Abs(Sonuclar.x1 - sonuclar.x4) > 10 then
begin
ShowMessage(Fl1.items[z] + ' Dosyasinda asiri yamukluk var.Form okunamadi');
continue;
end;

[/kod]

fl1=listbox

z fl1 deki kayıt sayısı. for ile kayıt sayısı sonuna kadar döngüye giriyor. Her bir kaydı fl1 in içine yazıyor.Daha sonra if satırındaki şart oluştuğunda uyarı veriyor. ben burda uyarı veren itemi bir txt ye yazmak istiyorum..

ama araya fl1.items[z].savetofile(... yapınca doğal olarak fl1 de ki kayıtların hepsini yazıyor..

burda sadece uyarı veren itemi bir txt ye nasıl yazabilrim

Teşekkürler

[vedatkaba]

Kod: Tümünü seç

Var 
  TextDosya : TextFile; 
begin 
  AssignFile(TextDosya, 'C:\Deneme.TXT'); 
  FileMode := 2; // Read & Write 
  ReWrite(TextDosya); 
  WriteLn(TextDosya, 'Deneme'); 
  WriteLn(TextDosya, '123'); 
  CloseFile(TextDosya); 
end; 

Böyle bir dosya açıp araya eklersin döngü bitince dosyayı kaptırsın olur herhalde .kolay gelsin

[mertcenk]

fikri olan yokmu.tıkandım kaldım burda

[mertcenk]

yanlış anladınız galiba...

txt ye yazıyorum ben...
döngünün içinde her sonucu yazıyor..ben bunu değil..sadece o şart gerçekleştiği zaman yani hata mesajını verdiği kaydı yazmak istiyorum listbox a

[vedatkaba]

kodların tamamını düzenli bir şekilde verseniz arkadaşlar yardımcı oalcak çok karışık birazdaha anlamlı isimler kullanın tekrar yazabilirseniz anlıycam ne dediğinizi.

[fduman]

Bunun için bir TStringList oluştur. Hata veren bölümü SL.Add(FL.Items) şeklinde stringlist'e at. Döngün bitince de SL.SaveToFile('HEDE.TXT') diyerek kaydet.