zeilen anzahl von text file bestimmen ?

[agm65]

denke so gehts .....beste lösung wie ich finde, danke luckie und alle anderen !!

Code:

var sl: TStringList;
  zeilennr: integer;
begin
  sl:=TStringList.Create;

  try
    sl.LoadFromFile(''dir\files.txt);  
    for zeilennr:=0 to sl.Count-1 do
     begin
      showmessage(inttostr(sl.count));
    end;
  finally
    sl.free; 
end;

bingo