Daten an Datei anhängen

[svenwel.de]

Guten Abend ich hab ne Frage

Ich möchte gern Daten an eine Datei anhängen und danach wieder auslesen , das anhängen ist im prinzip nicht die schwierigkeit

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var FStream : TfileStream;
    Mstream : TMemoryStream;
begin
    opendialog1.Execute;
    Mstream := TMemoryStream.Create;
    FStream := TFileStream.Create(opendialog1.FileName,fmOpenReadWrite);
    // Ans Ende der Datei
    FStream.Seek(0,soFromEnd);
    // Daten in Mstream schreiben
    Memo1.Lines.SaveToStream(MStream);
    // Daten von MStream in FStream 
    Mstream.SaveToStream(FStream);
    // Destruktor
    MStream.Free;
    Fstream.Free;
end;

Im Prinzip müsste ich mir die größe von MStream und FStream merken um die daten nachher wieder auslesen zu können. Ich müsste dann praktisch an das das ende der neuen datei seeken und vom Ende bis zu Position "Fsteam - Msteam" alles wieder auslesen, die frage ist jetzt, wie kann ich diese positionen speichern ?


MFG