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

冥界3大法王

[Delphi] 纯文本查看 复制代码

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
求师傅给 等量代换了。

DEATHTOUCH

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

冥界3大法王

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

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