Text speichern mit SaveDialog

[Korgan]

Hallo,

Das "with savedialog1 do" brauchst du mMn nicht.

Delphi-Quellcode:

procedure TForm1.speichernunter1Click(Sender: TObject);
begin
   memo1.Text:=liste.text;
   if savedialog1.Execute 
     then liste.savetoFile(filename);
end;