得到文本文件的条数 解决给分，up有分

Question

我想知道，最快的知道文本文件的条数 的方法，
不要用readln()
count:=count+1;
这样的方法，效率实在是太低了！

Answer 1

var
  Strs: TStrings;
begin
  Strs := TStringList.Create;
  Strs.LoadFromFile('g:\aa.txt');
  //Strs.Count便是
  Strs.Free;
end;————————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
————————————————————————————————————

Answer 2

同意，lxpbuaa(桂枝香在故国晚秋) ！你太厉害了！

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
var v1:tstrings;
    v2:integer;
begin
  v1:=tstrings.Create;
  v1.LoadFromFile('c:\aaa.txt');
  v2:=v1.Count;  //這里就是你想要的了
end;

Answer 4

这样并非最快的算法.
LoadFromFile很费时的.
感觉最快是找回车符的个数.