Danke für die schnellen Antworten.
Habe die Lösung von divBy0 gewählt, weil wir das auch so in der Schule machen müssen.
Habe gerade bemerkt, das wenn ich das Memo speichere, dass er nur die erste Zeile speichert aber wie erweitere ich das denn beim WriteLn?
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var F:Textfile;
begin
If SaveDialog1.Execute Then
Begin
AssignFile(F,SaveDialog1.FileName);
Rewrite(F);
Writeln(F,Memo1.Text);
CloseFile(F);
end;
end;
So sieht er bisher aus.