Gemme til en StringList og videre til en text fil

Man kan bruge SaveToFile:

procedure TForm1.Button2Click(Sender: TObject);
var
str: string;
sl: TStringList;
begin
sl := TStringList.Create;
try
  sl.LoadFromFile('data\people.txt');
  sl[2400] := edit1.text
  sl.SaveToFile('data\people.txt');
finally
  sl.Free;
end;
end;

Der mangler lige et ; efter sl[2400] := edit1.text :-)

Tak for det hurtige svar, men der er lige en lille ting jeg gerne vil have uddybet: Kan jeg flytte sl.SaveToFile over i en anden fil så jeg kan loade ved, at trykke på én knappe og gemme med en anden?

Jeg prøvede:
procedure TForm1.Button1Click(Sender: TObject);
var
str: string;
sl: TStringList;
begin
sl := TStringList.Create;
try
  sl.LoadFromFile('data\people.txt');
  sl[2400] := edit1.text;
finally
  sl.Free;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
sl: TStringList;
begin
  sl.SaveToFile('data\people2.txt');

Men det duede ikke. Kan du forklare hvad jeg gør galt?

Sorry... Jeg mener ikke flytte den over i en anden fil, men flytte den over i en anden knap :)

Det er i en anden knap :-)..

Ellers virker det her måske:

procedure TForm1.Button1Click(Sender: TObject);
begin
  edit1.text := sl[2400];
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  sl[2400] := edit1.text;
  sl.SaveToFile('c:\people.txt');

end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
sl.Free;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
sl := TStringList.Create;
sl.LoadFromFile('c:\people.txt');
end;

Ahh... Jeg misforstod dit første svar (det undrede mig også lidt hvorfor du pludselig kaldte den button2 i stedet for button1), men nu forstår jeg det, tak :)

:-)