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