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

[wangkun007]

在Delphi中
怎么读一个文本的第20行？（就是单独读以行！）
怎么在一个文本中查找字符串？

[王集鹄]

with TStringList.Create do try
LoadFromFile('c:\temp.txt');
ShowMessage(Strings[19]); //20行
finally
Free;
end;

//参考TStrings.IndexOf()函数、TStrings.Text属性、Pos()函数

[GreenWaterBlueSky]

我还是觉得一行一行读来的快一些

[mimi2001]

用对文本文件进行处理的几个常用函数 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;

[ihihonline]

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

[ihihonline]

用Tstrings

[ihihonline]

Memo1.findText可以进行查询