Einzelnen Beitrag anzeigen

Benutzerbild von malo
malo

Registriert seit: 19. Sep 2004
2.115 Beiträge
 
#2

Re: letzten 10 zeilen text datei auslesen

  Alt 21. Jan 2006, 19:14
Du musst in jedem Fall alles einladen. Aber du kannst den Anfang auch wieder löschen...
Ich würde dir eine StringList empfehlen und etwa so vorgehen:
Delphi-Quellcode:
function LoadLast10Lines(aFile: string): TStringList;
var SL: TStringList;
    i: integer;
begin
  SL := TStringList.Create;
  try
  SL.LoadFromFile(file);
  for i := SL.Count - 1 downto SL.Count - 11 do
  begin
    result.Add(SL[i]);
  end;
  finally
  SL.free;
  end;
end;
  Mit Zitat antworten Zitat