Delphi-Quellcode:
function GetFileStrFromEnd(FileName: String): String;
var
FS: TStream;
I,count: integer;
begin
count:=0;
result := ''; // stream ist kleiner
FS := TFileStream.Create(FileName, fmOpenReadWrite or fmShareExclusive);
try
while pos('[data]',result)=0 do
begin
if FS.Seek(-Count, soFromEnd)=fs.Size then exit \\ noch ein fehler drin
else \\ schaue morgen danach, Gute Nacht.
begin
if FS.Seek(-Count, soFromEnd) = FS.Size - Count then
begin
Setlength(Result,Count);
FS.Read(Result[1],Count);
end;
inc(count);
end;
end;
finally
fs.Free;
end;
end;
habe mal muetzes code angepasst.. villeicht brauch das ja jemand..
mein string fängt mit '[data]' an.
und irgendwie wollte meine if anweisung kein "if not count=fs.size then..." aktzeptieren, dann habe ich es mal so gedreht
