查出文本文档共几条记录解决办法

查出文本文档共几条记录在.txt里面的数据有多行,如下12345asdfg23145fdjdj25436safhjk......请教各位神仙,

查出文本文档共几条记录
在.txt里面的数据有多行,如下
12345     asdfg
23145     fdjdj
25436     safhjk
...         ...
 
请教各位神仙,delphi有没有什么相关函数能够查出该文本文档共几条记录
或者查出该文本文档共几行也行,有没有这样的函数啊?????
请指教~!!!

[解决办法]
var
s: Strings;
begin
s := TStringList.Create;
s.LoadFromFile( 'c:\test.txt ');
ShowMessage( '总行数: '+IntToStr(s.Items.Count));
s.free;
end;