（在线等，马上结帐）请问怎么得到一个文件的行数！（急用！）

Question

（在线等，马上结帐）请问怎么得到一个文件的行数！（急用！）

Answer 1

a: TStrings;a := TStringList.Create;
a.LoadFromFile('c:\a.txt');
Result := a.Count;
a.Free;

Answer 2

//手头没有Delphi，随便写的，没经过测试
var ST: tStringList;
    sFile: String;  sFile := 'C:\12.txt';
  ST := TStringList.Create;
  ST.LoadFromFile(sFile);
  ShowMessage(IntToStr(ST.Count));
  ST.Free;

Answer 3

如果一个文本文件超过64K或很大，用TSTRINGLIST会不会出问题呢。
还有开始有乱码的可能连行数读不出来。

Answer 4

不会的，TStringList的容量是与内存大小有关的！！！