Mehrere Memo's Speicher

[3_of_8]

Das ist nicht das Problem. Das Problem ist das length(a), das macht Ärger. Speicher das in eine Variable.

Delphi-Quellcode:

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

  FileStream := TMemoryStream.Create;

  la:=length(a);
  FileStream.Write(la, sizeof(Integer));
  FileStream.Write(a, la);

  lb:=length(b);
  FileStream.Write(lb, sizeof(Integer));
  FileStream.Write(b, lb);

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