procedure TForm1.Button1Click(Sender: TObject); var StrList: TStringList; i: integer; begin StrList := TStringList.Create; StrList.LoadFromFile('D:\aa.txt'); For i := 0 to StrList.Count - 1 do ListBox1.Items.Add(StrList.Strings[i]); ListBox1.Items.SaveToFile('D:\aa.txt'); StrList.Free; end;
var
StrList: TStringList;
i: integer;
begin
StrList := TStringList.Create;
StrList.LoadFromFile('D:\aa.txt');
For i := 0 to StrList.Count - 1 do
ListBox1.Items.Add(StrList.Strings[i]);
ListBox1.Items.SaveToFile('D:\aa.txt');
StrList.Free;
end;