DELPHI 如何在Richedit 中替换关键字

procedure TForm1.ReplaceDialog1Replace(Sender: TObject);

var

  SelPos: Integer;

begin

  with TReplaceDialog(Sender) do

  begin

    SelPos := Pos(FindText, RichEdit1.Lines.Text);

    if SelPos > 0 then

    begin

      RichEdit1.SelStart := SelPos - 1;

      RichEdit1.SelLength := Length(FindText);

      { Replace selected text with ReplaceText }

      RichEdit1.SelText := ReplaceText;

    end

    else MessageDlg(Concat('No more matches for: "', FindText, '" have been found in the current document'), mtError, [mbOk], 0);

  end;

end;

现在，插入新按钮并为其添加OnClick事件（与之前添加的方式相同），然后粘贴以下代码：

ReplaceDialog1.Execute;

And finally, add OnFind event to the ReplaceDialog

Delphi

procedure TForm1.ReplaceDialogFind(Sender: TObject);

var

  FoundAt: LongInt;

  StartPos, ToEnd: Integer;

begin

  with RichEdit1 do

  begin

{ if there's selected text, start looking from that place, in other case, start looking from the beginning }

    if SelLength <> 0 then

      StartPos := SelStart + SelLength

    else

      StartPos := 0;

  { find the end of text }

    ToEnd := Length(Text) - StartPos;

    FoundAt := FindText(ReplaceDialog1.FindText, StartPos, ToEnd, [stMatchCase]);

    if FoundAt <> -1 then

    begin

      SetFocus;

      SelStart := FoundAt;

      SelLength := Length(ReplaceDialog1.FindText);

    end;

  end;

end;