Tail Funktionalität

[gsh]

Danke für deinen Test. Dein Beispiel funktioniert bei mir auch.
Aber eins verstehe ich nicht. Die "alte" Tail function (mit FileStream) funktioniert jetzt plötzlich auch Eigentlich hab ich ja nichts dran geändert.

Delphi-Quellcode:

function Tail(FileName:string; Position:Integer):string;
var
  S: TStream;
  L: Integer;
begin
  S := TFileStream.Create(FileName, fmOpenRead or fmShareDenyNone);
  try
    S.Seek(Position, soBeginning);
    L := S.Size-Position;
    SetLength(Result, L);
    S.Read(Result[1], L);
  finally
    S.Free;
  end;
end;

Aber gut wenn es jetzt funktioniert bin ich froh. Danke an Alle