Delphi-Quellcode:
function GetFileStrFromEnd(FileName: String): String;
var
FS: TStream;
i: integer;
begin
FS := TFileStream.Create(FileName, fmOpenRead or fmShareExclusive);
try
if FS.Size > 0 then
begin
FS.Position := 0;
SetLength(Result, FS.Size);
FS.Read(Result[1], FS.Size);
i := Pos('[data]', Result);
if i > 0 then Delete(Result, 1, i - 1) else Result := '';
end
else
Result := '';
finally
FS.Free;
end;
end;
wenn du das [data] nicht willst, dann einfach bei "i - 1" diese Länge einrechnen, also "i + 5"
und für die idealere Variante (siehe dem Code mit 1024 im letzten Beitrag), ... und dort einfach einen Wert wählen, der auf jeden Fall groß genug ist ^^