Количество строк в файле

[Demien]

Доброго времени суток!
Возник вопрос: Как узнать сколько строк в файле? Расширение "*.txt".

[psycho-coder]

Можно вот так:

var
  sl: TStringList;
  countString: Integer;
begin
  sl := TStringList.Create;
  sl.LoadFromFile('file.txt');
  countString := sl.Count;
  sl.Free;
end;

[Sazary]

procedure TForm1.Button1Click(Sender: TObject);
var
list : TStringList;
begin
list := TstringList.Create;
list.LoadFromFile('test.txt');
ShowMessage('Количество строк = '+IntToStr(list.Count));
list.Free;
end;

ps опоздал немного )

[Demien]

Спасибо за помощь!!!