10 zeilen text datei lesen

[ichbins]

Delphi-Quellcode:

var
  f:file of byte;
  s:tstringlist;
  b,lastb:byte;
  linejumps:integer;
begin
  s:=tstringlist.craete;
  assignfile(f,DATEINAME);
  reset(f);
  seek(f,filesize(f)-1);
  linejumps:=0;
  b:=0;
  while linejumps<10 do begin
    lastb:=b;
    read(f,b);
    if ((b=13) and (lastb=10)) then
      linejumps:=linejumps+1;
    seek(f,filepos(f)-2);
  end;
  seek(f,filepos(f)+2);
  //jetzt ist er an der Position an der die 10.letzte Zeile anfängt
  b:=0;
  while not eof(f) do begin 
    lastb:=b;
    read(f,b);
    if ((lastb=13) and (b=10)) then
      s.add('')
    else
      if b<>13 then
        s.strings[s.count-1]:=s.strings[s.count-1]+char(b);
  end;
end;