String in zuvor gewählter Datei speichern

[NikoMitDaMacht]

Ok besser wäre wohl :

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
datei :String;
begin
if savedialog1.Execute then
  begin
  datei:= savedialog1.FileName;
  memo1.Lines.SaveToFile(datei);
  end;
end;