Nebo pomoci TStringList - obdoba ListBoxu
procedure TForm1.btnWriteClick(Sender: TObject);
var
sl: TStringList;
begin
sl := TStringList.Create;
sl.Add(Edit1.Text);
sl.SaveToFile('C:\Test\Data.txt');
sl.Free;
end;
Nebo pomoci TStringList - obdoba ListBoxu
procedure TForm1.btnWriteClick(Sender: TObject);
var
sl: TStringList;
begin
sl := TStringList.Create;
sl.Add(Edit1.Text);
sl.SaveToFile('C:\Test\Data.txt');
sl.Free;
end;