Datei "seeken"

[sakura]

Es geht, aus meiner Sicht auch einfacher.

Delphi-Quellcode:

var
  I: Integer;
  SL: TStringList;
begin
  SL := TStringList.Create;
  try
    SL.LoadFromFile('C:\Temp\DateiMitZeilen.txt');
    for I := 0 to Pred(SL.Count) do
      ShowMessage(SL[I]);
  finally
    SL.Free;
  end;
end;

......