文本编辑器的查询功能

最新推荐文章于 2020-10-28 00:03:03 发布

AmberChun

最新推荐文章于 2020-10-28 00:03:03 发布

阅读量455

点赞数

分类专栏： delphi 文章标签： delphi 文本编辑 string chaxun 查询

本文链接：https://blog.csdn.net/forgotsnow/article/details/39027137

版权

delphi 专栏收录该内容

10 篇文章 0 订阅

订阅专栏

<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;