Hallo Sascha,
keine Frage - du kannst den Inhalt mehrerer Memos hintereinander in dieselbe Text-Datei schreiben. Damit du beim Einlesen merkst, welche Zeilen zusammen gehören, musst du entweder die Zeilenanzahl voran stellen oder eine Trennzeile mit ausgeben.
Delphi-Quellcode:
procedure SaveMemos(memos: array of TMemo; fn: TFileName);
var
i: Integer;
s: TStream;
line: String;
begin
s := TFileStream.Create(fn, fmCreate);
for i := 0 to High(memos) do
begin
line := IntToStr(memos[i].Lines.Count) + sLineBreak; // memos statt memo
s.Write(line[1], Length(line));
memos[i].Lines.SaveToStream(s); // memos statt memo
end;
s.Free;
end;
Getippt und nicht getestet.
Grüße vom marabu