有关读文件内容的疑问？

Question

我用以下方法建立了文本文件！
var
  f:TextFile;
........  assignFile(f,'e:\paul.aaa');
  rewrite(f);
  writeLn(f,edit1.text);
  writeLn(f,edit1.text);  closeFile(f);我现在要取出paul.aaa指定行中的内容，是不是用readLn但怎么用呢？
谢谢！

Answer 1

ar
  FList: TStringList;
  tmpStr: String;
Begin
  FList:= TStringList.Create;
  FList.LoadFromFile(TextFileName);
  IF n < FList.Count Then begin
    tmpStr:= FList.Strings[5] + FList.Strings[6] + ... + FList.Strings[n];
    ShowMessage(tmpStr);
  End;
  FList.Free;
End;

Answer 2

var
  f:TextFile;
  para1,para2...:string;........  assignFile(f,'e:\paul.aaa');
  reset(f);
  readLn(f,para1);
  readLn(f,para2);  closeFile(f);

Answer 3

var
  FList: TStringList;
  tmpStr: String;
Begin
  FList:= TStringList.Create;
  FList.LoadFromFile(TextFileName);
  ShowMessage(flist[5]);
  End;
  FList.Free;
End;

Answer 4

对了，如果要读出指定行中的内容，那就最好用动态数祖了！
var
  f:TextFile;
  i:integer;
  para: array[1...3000] of string;........  assignFile(f,'e:\paul.aaa');
  reset(f);
  while not eof(f) do begin
      readLn(f,para[i]);
       i:=i+1;
  end;
  closeFile(f);

Answer 5

法一：
var 
  F: TextFile;
  S: string;
begin
  if OpenDialog1.Execute then            { Display Open dialog box }
  begin
    AssignFile(F, OpenDialog1.FileName); { File selected in dialog }
    Reset(F);
    Readln(F, S);                        { Read first line of file }
    Edit1.Text := S;                     { Put string in a TEdit control }
    CloseFile(F);
  end;
end;
法二：
var
  strlist: TStringList;
begin
  strlist := TStringList.Create;
  strlist.LoadFromFile('e:\paul.aaa');
  Edit1.Text := strlist.Strings[i];  //i就是指定行的行号，从０开始计数
end;