如何知道一个文本文件一共多少行?

[alec_ma]

我打开一个文件，由于文件的行数较多，超过十万行，我不想把所有行循环一次，能否得到文件的总行数?

[jackie168]

procedure TForm1.Button1Click(Sender: TObject);
begin
memo1.Lines.LoadFromFile('c:\123.txt');
showmessage(inttostr(memo1.Lines.Count));
end;

[CareYouOnly]

“行”这个概念很模糊，关键是看打开文件的程序怎样解释，有的软件是遇到＃13就换行，有的是遇到＃10换行，有的要遇到＃13＃10才会换，而有的（如Delphi带的TMemo默认属性下）在当前行不够显示的时候就会自动换行，这么多中“换行”的方法，很难确定一共有多少“行”啊。

[alec_ma]

这样读会吃很多内存的

[alec_ma]

标准的回车

[alec_ma]

我是想用不耗内存的方法取得总的行数

[alec_ma]

好像没什么办法

[CareYouOnly]

function GetTextFileLines(FileName: string):integer;
var L:integer; F:TFileStream; C:Char;
begin
L:=0;
F:=TFileStream.Create(FileName,fmOpenRead);
try
while (F.Position<F.Size) do
begin
F.Read(C,1);
if C=#13 then
L:=L+1;
end;
finally
F.Free;
end;
result:=L;
end;

不过这种方法不支持中文和UniCode。