如何得到文本文件的行数?

[szkxy]

我想把一个Text文件的数据读到数据库中,因为要使用Progress Bar,所以想计算行数!

[红叶骑士]

最简单的办法作一个while循环
i := 0;
while not eof（l_File）
begin
Readln（l_File， l_Str）
Inc(i)
end;
Result := i

[票票飞扬]

var sl: TStringList;

sl := TStringList.Create;
sl.Items.LoadFromFile('c:\123.txt');
ShowMessage('Text File has '+IntToStr(sl.Items.Count)+' 行');

[zx_wang]

var
list: TstringList;
begin
list := TStringList.Create;
try
list.LoadFormFile('test.txt');
showmessage(inttoatr(list.count - 1));
finally
list.free;
end;
end;

[jholdnew]

同上

[ihihonline]

对，就是打开后，先定位，然后往下循环

[yeswhb]

可以判断回车字符。

[GreenWaterBlueSky]

一行一行读吧，我就这么干的，呵呵

[pingguo]

我也是这么干的。

[baispr]

大文件还是用Create吧,至于小文件一行一行读好像要快得多,而且不易出错!