Mehrere Memos in einer Datei Speichern

[mkinzler]

.SaveToFile() erzeugt eine neue Datei bzw. überschreibt eine vorhandene.

Delphi-Quellcode:

var
   sl: TStrings;
begin
   sl := TStringList.Create;
   ...
   sl.Append( Memo1.Lines);
   sl.Append( Memo2.Lines);
   ...
   sl.SaveToFile(OpenDialog1.Filename);
   ...
   sl.Free;