关于文本文件中，对其中数据查找的问题

Question

在一个文本文件中，有如下数据
KING
MIKE
MARY
。
如果我想找出其中满足条件的记录，应该怎么做？
比如我想定位到MIKE这一行

Answer 1

var
  TextFile :TextFile;
  str:string;
begin  AssignFile(TextFIle,'d:\test.txt');
  Reset(TextFile);
  while not eof(TextFile) do
  begin
  readln(TExtFile,str);
  if str='mike' then
    begin
    //find
    //处理
    break;
    end;
  
  end;
  closefile(textfile);
end;