关于读写文本文件的简单问题？急！！

Question

with TStringList.Create do try
  LoadFromFile('c:\temp.txt');
  ShowMessage(Strings[19]); //20行
finally
  Free;
end;//参考TStrings.IndexOf()函数、TStrings.Text属性、Pos()函数

Answer 1

用对文本文件进行处理的几个常用函数 assignfile,reset,append,rewrite,,
writelen,readln和closefile 等函数
   如
          while not eof(textid) do
             begin
               readln(textid,s);//读取信息
               memo1.text:=memo1.text+s+chr(13)+chr(10);  //显示信息
             end;
         end;
        

Answer 2

如果你要是用取出来的这些进行查询的话，推荐你用最上边的方法；
if opendiolag1.exectue then
begin
  F.loadfromfile(opendiolag1.filename); 
  for I := 0 to 19 do 
  begin
    readln(F,Memo1.Lines[I]);
    ...
  end;