txt ye kayıt

[tolga birol]

selam arkadaşlar

4 adet edit kutusunun içindeki kelimeleri txt ye
kaydederken alt alta kaydettirmek için neler yapmak lazım

adı soaydı;firma adı;geldihi tarih;aldıgı urun
adı soaydı;firma adı;geldihi tarih;aldıgı urun
adı soaydı;firma adı;geldihi tarih;aldıgı urun
adı soaydı;firma adı;geldihi tarih;aldıgı urun

[cemaliozan]

Basitçe ;

uses FileCtrl;

procedure TForm1.kaydet;
var
F : TextFile;
begin
try
AssignFile(F,'C:\temp\my.txt');
ReWrite(F);
writeln(F, Edit1.Text);
writeln(F, Edit2.Text);
writeln(F, Edit3.Text);
writeln(F, Edit4.Text);

finally
CloseFile(F);
end;
end;

[yeniprogramci]

bütün değişkenleri bir listbox içine yaz
sonrada listbox.savtofile('c:\deneme.txt');
yüklemel için listbox.loadfromfile('C:\deneme.txt')
yeterli