plik textowy help

jak do integera walnac liczbe linii w pliku textowym cos.txt ? thx

var
  f: textfile;
  linie: integer;
begin
  assignfile(f, 'nazwa.pliku.txt');
  reset(f);
  linie:=0;
  while not eof(f) do
    Inc(linie);

  closefile(f);

Np.

RichEdit.Lines.LoadFromFile('plik.txt');
i:=RichEdit.Lines.Count;

thx!

Ludomir: zapomniałes w pętli dać jeszcze ReadLn(), bo tak, to pętla się w nieskończoność wykona. Chyba, że plik będzie pusty :).