Delphi直接读文本文件然后逐行读取数据的程序怎么写？急急急！

Question

Delphi直接读文本文件然后逐行读取数据的程序怎么写？急急急！

Answer 1

第一行就是str.Strings[0]，第十行就是str.Strings[9];
var
  str:tstringlist;
begin
  str:=tstringlist.Create;
  str.LoadFromFile('d:\a.txt');
  form1.caption:=str.Strings[0]+' '+str.Strings[9];
  str.free;
end;  

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
    fFile : Textfile;
    sLine : string;
begin
    AssignFile(fFile,'E:\book2.txt');
    {$I-}
    Reset(fFile);
    {$I+}
    if IOResult=0 then
    begin
        sArray := VarArrayCreate([0,0],varVariant);
        while not Eof(fFile) do
        begin
           Readln(fFile,sLine);
        end;
    end;
    CloseFile(fFile);
end;

Answer 3

对：koren()  取行最大值怎么取，怎样用循环逐行取数据。顺便再问大家 直接读取Text文件到某行后要把前面的记录删除掉，剩下的记录移到第一行开始怎么写？