Mehrere Memo's Speicher

[SaFu]

Super das Klappt so

Will nicht unhöfflich sein aber könntest du mir noch bei wiederherstellen helfen

Delphi-Quellcode:

procedure TForm7.Button9Click(Sender: TObject);
var
  memos :TFileName;
  FileStream: TMemoryStream; 
  pos,l,i: Integer;
begin
  FileStream := TMemoryStream.Create;
  memos:= ExtractFilePath(ParamStr(0))+'Bemerkungen\'+ ComboBox4.Text+'.txt'
  FileStream.LoadFromFile(memos);

  pos := 0;
  l := 0; 

  for i := 1 to 5 do
  begin
    FileStream.Position := pos;
    FileStream.Read(l, SizeOf(Integer));
    FileStream.Position := pos + SizeOf(Integer);

    case i of
      1: FileStream.Read(Memo1.Text ,l);
      {...}
      5: FileStream.Read(Memo5.Text ,l);
    end;

    pos := pos + l + SizeOf(Integer);
  end;
  FileStream.Free;
end;

end;

das ist schwerer als ich gedacht habe

Danke