读文本文件的一行

Delphi读文件文件一般使用Readln过程，如要读第3行可以这样：
   var
    i : Integer;
    F: TextFile;
    S: string;
   begin
    if OpenDialog1.Execute then { Display Open dialog box }
    begin
    AssignFile(F, OpenDialog1.FileName); { File selected in dialog }
    Reset(F);
    For i = 1 To 3 Do
    Readln(F, S);
    Edit1.Text := S; { Put string in a TEdit control }
    CloseFile(F);
    .
   end;
   要统计总行数，只能从头逐行读，直到文件尾（Eof函数为True），每读一行计数器加1。
   不过由于文本文件的每行长度不相等，它不能象数据库文件那样想读那行就读哪行，只能顺序读。
   上面的方法容易理解，也容易实现。如果希望提高速度，编程上要麻烦一些，可以以二进制方式打开文件，将所有内容读入一个内存变量，然后使用Pos函数查找其中的回车（#13）个数，这样可以快速地统计总行数并能快速地找到指定行。