Delphi XE7下TRichEdit自定义查找替换选中不显示、替换无效问题

问题描述 #

• 开发环境：Delphi XE7，目标为TRichEdit控件实现自定义查找替换逻辑，交互对齐Delphi IDE内置查找替换规则，不使用系统自带替换对话框
• 预期交互：点击替换按钮后关闭自定义查找替换窗口，每匹配到一处文本就弹出确认框，询问用户是否替换当前匹配项
• 实际异常：
  • 弹出确认消息框时，TRichEdit中匹配到的文本不显示选中高亮状态
  • 用户在消息框点击「是」后，匹配的文本未被实际替换

原实现代码 #

procedure Tviewform.select_text(fndpos:integer);
begin
   setfocus;
   asciieditor.selstart:=fndpos;
   asciieditor.sellength:=length(vwvars[curviewwin]^.finddata);
end;

procedure Tviewform.search_and_replace;
var position,endpos,fndans,cont:integer; foptions:tsearchtypes; msgques,stopall:word;
begin
  with asciieditor do
  begin
    endpos:=length(asciieditor.text)-vwvars[curviewwin]^.sstartpos;
    foptions:=[];
    stopall:=0;
    cont:=0;
    if findinfo.onbut.checked then foptions:=foptions+[stMatchCase];
    lines.beginupdate;
    fndans:=findtext(vwvars[curviewwin]^.finddata,vwvars[curviewwin]^.sstartpos,endpos,foptions);
    while (fndans<>-1) and (stopall=0) do
    begin
      select_text(fndans);
      msgques:=mainform.silang1.messagedlg('Replace with '+vwvars[curviewwin]^.replace+'?.',mtinformation,[mbyes,mbno,mbcancel],0);
      if msgques=mryes then
      begin
        asciieditor.clearselection;
        seltext:=vwvars[curviewwin]^.replace;
      end else
      begin
        if msgques=mrcancel then
        begin
          cont:=0;
          stopall:=1;
        end else cont:=1;
      end;
      asciieditor.Repaint;
      if cont=1 then
      begin
        inc(vwvars[curviewwin]^.sstartpos,length(vwvars[curviewwin]^.finddata));
        endpos:=length(asciieditor.text)-vwvars[curviewwin]^.sstartpos;
        fndans:=findtext(vwvars[curviewwin]^.finddata,vwvars[curviewwin]^.sstartpos,endpos,foptions);
      end;
    end;
    lines.endupdate;
  end;
end;

问题根因 #

三个核心问题导致异常：

1. 选中状态不显示：代码中调用Lines.BeginUpdate后会锁定控件所有重绘操作，直到调用Lines.EndUpdate才解锁。锁定期间设置选中文本、弹出消息框时，控件不会执行重绘，自然看不到选中高亮。
2. 替换不生效：BeginUpdate锁定状态下会阻塞部分Windows原生消息，SelText赋值、ClearSelection操作不会被RichEdit原生控件处理，操作直接被丢弃。另外select_text过程中调用的SetFocus没有指定目标控件，默认给当前窗体设置焦点，没有把焦点切回asciieditor，也会导致选中状态和文本操作异常。
3. 逻辑bug：用户选择替换当前项后，代码没有更新下一次查找的起始位置，会导致重复匹配、循环中断问题。

修复后代码 #

procedure Tviewform.select_text(fndpos:integer);
begin
   // 明确给RichEdit设置焦点，而非窗体
   asciieditor.SetFocus;
   asciieditor.SelStart := fndpos;
   asciieditor.SelLength := Length(vwvars[curviewwin]^.finddata);
   // 强制滚动到选中位置，保证匹配内容在可视区域
   asciieditor.Perform(EM_SCROLLCARET, 0, 0);
end;

procedure Tviewform.search_and_replace;
var endpos,fndans,cont:integer; foptions:tsearchtypes; msgques,stopall:word;
    replaceLen: Integer;
begin
  endpos := Length(asciieditor.Text) - vwvars[curviewwin]^.sstartpos;
  foptions := [];
  stopall := 0;
  cont := 0;
  replaceLen := Length(vwvars[curviewwin]^.replace);
  if findinfo.onbut.checked then foptions := foptions + [stMatchCase];
  // 移除BeginUpdate/EndUpdate，单步交互替换不需要批量锁控件，避免阻塞重绘和消息
  fndans := asciieditor.FindText(vwvars[curviewwin]^.finddata, vwvars[curviewwin]^.sstartpos, endpos, foptions);
  while (fndans <> -1) and (stopall = 0) do
  begin
    select_text(fndans);
    // 强制处理所有待执行的UI重绘任务，保证选中状态显示后再弹框
    Application.ProcessMessages;
    msgques := mainform.silang1.MessageDlg('Replace with '+vwvars[curviewwin]^.replace+'?.', mtInformation, [mbYes, mbNo, mbCancel], 0);
    if msgques = mrYes then
    begin
      // 给SelText赋值会自动替换选中内容，不需要额外调用ClearSelection
      asciieditor.SelText := vwvars[curviewwin]^.replace;
      // 替换后下一次查找从替换内容末尾开始，避免重复匹配
      vwvars[curviewwin]^.sstartpos := fndans + replaceLen;
      cont := 1;
    end else
    begin
      if msgques = mrCancel then
      begin
        cont := 0;
        stopall := 1;
      end else 
      begin
        // 选择不替换，从当前匹配位置的下一个字符开始查找
        vwvars[curviewwin]^.sstartpos := fndans + 1;
        cont := 1;
      end;
    end;
    if cont = 1 then
    begin
      endpos := Length(asciieditor.Text) - vwvars[curviewwin]^.sstartpos;
      fndans := endpos > 0 ? asciieditor.FindText(vwvars[curviewwin]^.finddata, vwvars[curviewwin]^.sstartpos, endpos, foptions) : -1;
    end;
  end;
end;

修复说明 #

• 移除Lines.BeginUpdate/Lines.EndUpdate包裹：该方法适合批量修改大量行文本的场景，单步交互式替换不需要加锁，避免阻塞控件重绘和原生消息处理
• 修正SetFocus调用目标：明确把焦点设置到asciieditor控件，同时发送EM_SCROLLCARET消息保证选中内容自动滚动到可视区域
• 弹框前调用Application.ProcessMessages：强制排空UI消息队列，保证用户看到选中高亮后再弹出确认框
• 修正查找起始位置逻辑：不管用户选择替换还是不替换，都正确更新下一次查找的起始点，避免死循环、漏匹配问题
• 移除多余的ClearSelection调用：TRichEdit给SelText赋值时会自动替换当前选中的文本，不需要先清空选择
• 增加边界判断：当剩余文本长度不足时直接终止查找，避免参数异常。

内容的提问来源于stack exchange，提问作者MRoth