鱼C记事本(Memo版) '查找下一个'功能如何实现
如题，不知道如何实现'查找下一个'，首次查找可实现，但是无法下一个，求达人指教查找代码：
ReturnPos:=Pos(dlgFind1.FindText,mmo1.Lines.Text);
if ReturnPos <>0 then
begin
mmo1.SetFocus;
mmo1.SelStart:=ReturnPos -1;
mmo1.SelLength:=Length(dlgFind1.FindText);
end;
页:
[1]