文本编辑器的查询功能

<span style="color:#3333ff;">用delphi写文本编辑器时使用的查找功能代码段</span>

</pre><pre name="code" class="delphi">var    FoundPos:longint;    StartPos:integer;    str:string;begin    with MemoArr[CurPage] do    begin        StartPos:=SelStart+SelLength;        str:=Copy(lines.Text,StartPos+1,Length(lines.Text)-StartPos+1);        FoundPos:=Pos(FindDialog1.FindText,str);        if Found>0 then        begin            FoundPos:=FoundPos+StartPos;            SetFocus;            SelStart:=FoundPos-1;            SelLength:=Length(FindDialog1.FindText);        end        else            Messagebox(0,PChar(Format('未找到"%s"!!!',[FindDialog1.FindText])),'提示',MB_OK);    end;end;