请问：如何取得一文本文件的行数？在线。

Question

1.如何取得一文本文件的行数？
2.如何读取一文本文件第5行的内容？
3.怎样能截取字符串中的一小串，比如123_1102230_asd,1112333_556877_asdd,中的   1102230和55687，他们的规则是被取数字的前后有'_'符号。请给出代码？谢谢！

Answer 1

var mystrings:TStrings;
    ilines:integer;begin
  mystrings:= TStringList.Create;
  mystrings.loadfromfile('c:\aaaa.txt');
  ilines:=mystrings.count;
end;