TRichEdit

[marabu]

Ja, du kannst dort auch Text ausgeben:

Delphi-Quellcode:

procedure TDemoForm.ButtonClick(Sender: TObject);
var
  iFound: Integer;
begin
  with RichEdit do
  begin
    iFound := FindText(FindEdit.Text, 0, MaxInt, []);
    if iFound > -1 then
    begin
      SelStart := iFound;
      SelLength := Length(FindEdit.Text);
      SelText := ReplaceEdit.Text;
    end;
  end;
end;

Getippt und nicht getestet.

Freundliche Grüße