Строки в файле

[werser]

Как узнать сколько строк в файле

[hoza_syl]

Используя объект TStringlist

procedure TForm1.Button1Click(Sender: TObject);
var
textfile : TstringList;
LineCount : integer;
begin
textfile:=Tstringlist.Create;
textfile.LoadFromFile('Путь к файлу');

lineCount:=textfile.Count;  //вот наше количество строк.

textfile.Free
end;