Mehrere Memo's Speicher

[SaFu]

so etwa

Delphi-Quellcode:

procedure TForm7.Panel1Click(Sender: TObject);
var FileStream: TMemoryStream;
    memos :TFileName;
    a,b :String;
    c,d :integer;
begin
 a:=Memo1.Text;
 b:=Memo2.Text;
 c:= SizeOf(Integer);
 d:= SizeOf(Integer);

  FileStream := TMemoryStream.Create;

  FileStream.Write(Length(a), c));
  FileStream.Write(a, Length(Memo1.Text));

  FileStream.Write(Length(b), d));
  FileStream.Write(b, Length(Memo2.Text));

  memos:= ExtractFilePath(ParamStr(0))+'Bemerkungen\'+ ComboBox4.Text+'.txt';
  FileStream.SaveToFile(memos);
  FileStream.Free;
end;