我有一个4M的文本文件，怎么才能快速统计它有多少行？

[dreamgoal]

文件比较大，读到控件或TStringList里在统计不可行。

[Mylwf]

如果每行的字数固定，可以这样试试：
1.获得该文件的大小，比如，100字节
2.假如每行25字节的话，100 div 25=4行

[Cipherliu]

我看还是读到TStringList里去统计方便。

[joy_young]

打开文件扫描回车的数目+1

[windindance]

把文件按二进制读入，
查找有多少个回车符

[torble]

这样的方法行不行：

AssignFile(AFile,'c:\myfile.dat');
Reset(AFile, 1);
FSize := FileSize(AFile)/5;
BufferSize := 1024 * 64; // 缓存大小，当前设为 64K
for Count := 1 to FSize do
begin
BlockRead(AFile, Buffer, SizeOf(Buffer), BufferSize);
// 这里统计换行符个数
end;

[Cipherliu]

分段去读文件的内容还不如用TstringList控件一次读入来得快。
文件你是必须读的，不见得你自己写的程序就比Borland的程序快多少。
还是用控件吧。TstringList.count就解决问题了。

[joy_young]

读到控件里虽然简单，但是耗内存
用文件也不会太慢，不必用二进制文件方式，打开后不断的readln，并且累加，直到文件结束就可以知道行数了