dısardan okuttugum dosyadaki verileri listboxa yazdırmak

[algoritma]

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
yol: Textfile;
s: String;
begin
   s:='umut karaman';
   AssignFile (yol, 'c:\downloads\a.txt');
   reset(yol);
   Readln(yol,s);
   form1.caption:= s;
   Listbox1.items.Add('?');
   closefile(yol);
end;

end.

? olan yere hangi kod gelmeli?

[Ali Erdoğan]

Hocam tam olarak ne yapmaya çalıştığını anlayamadım ancak metin dosyasındaki verileri listbox a yüklemek için kodunu

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
begin
ListBox1.Items.LoadFromFile('c:\downloads\a.txt');
end;

şeklinde değiştirmen yeterli. Aynı şekilde kaydetme işini de tek bir metotla yapabilirsin.