网站 › 『编程语言讨论求助区』 › 关于字符串向前查找 与 向后查找记录问题：

冥界3大法王 发表于 2021-12-9 13:49

关于字符串向前查找 与 向后查找记录问题：

var
i, j: integer;
begin
j := pos(SearchCode.Text, SynMemo1.Lines.Text);
if j <> 0 then
begin
   // showmessage('在第' + inttostr(j) + '个位置');
    SynMemo1.SelStart := j;
    SynMemo1.SelLength := Length(SearchCode.Text);
end;
end;

执行结果没问题，也找到了，也高亮选中了。
再从此位置 向后 查找呢 ？
。。。。。向前。。。。？

脑袋笨，不会。
参考代码： https://www.cnblogs.com/lp-blogs/p/3809636.html
求师傅给 等量代换了。{:301_974:}

DEATHTOUCH 发表于 2021-12-9 23:31

类似于记事本的 F3 向后查找和 Shift+F3 向前查找这样的功能 ？

冥界3大法王 发表于 2021-12-10 08:18

DEATHTOUCH 发表于 2021-12-9 23:31
类似于记事本的 F3 向后查找和 Shift+F3 向前查找这样的功能 ？

@DEATHTOUCH
SearchDialog直接就有实现，一会再找点代码就成了。

查看完整版本: 关于字符串向前查找 与 向后查找记录问题：