如何在文本文件中查找一个字符串所在的行数？

Question

文本文件大约1M左右。
想找到这个字符串在文件中出现第一次的行数。对效率有要求。谢谢！

Answer 1

简单点就载入到TStringList中再在每行中找字符串。1M应该很快的。

Answer 2

放到RxRichEdit里面，
k:=RxRichEdit1.Lines.IndexOf('要查的字符串')；
k为 行数－1。

Answer 3

LNO:=0;
WHILE NOT EOF DO
BEGIN
  S:=READLN;
  IF POS(SUBS, S)>0 THEN
  BEGIN
    INC(LNO);
    EXIT 
  END
  INC(LNO) 
END