Tail Funktionalität

[Klaus01]

.. hier ein ähnlicher Ansatz:

Zitat:

AndersonCarli:
You may save last file size and then read from that pos.
Try this: (not compiled)

Delphi-Quellcode:

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

Quelle

Grüße
Klaus