如何按输入关键字搜索文本文件,将指针移至满足条件的行.

Question

如何按输入关键字搜索文本文件,将指针移至满足条件的行.

Answer 1

{检索关键字跳转}
   Doc :=frm_view.WebBrowser1.Document as IHTMLDocument2;
   if Doc.QueryCommandEnabled('SELECTALL') then
      Doc.ExecCommand('SELECTALL',false,EmptyParam);   TxtRange :=Doc.Selection.CreateRange as IHtmlTxtRange;
   TxtRange.FindText('关于',count,Flags);
   TxtRange.Select;