Mehrere Memo's Speicher

[3_of_8]

Delphi-Quellcode:

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

  FileStream := TMemoryStream.Create; 
  FileStream.Write(c, SizeOf(Integer));
  FileStream.Write(a[1], c);

  FileStream.Write(d, SizeOf(Integer));
  FileStream.Write(b[1], d);

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

So gehts.