RichEdit , Text ersetzen aber Formate erhalten

[joehd]

Hy das ist zwar ein alter Code aber ich war mit der Lösung nicht glücklich. Hatten ja einige vorher schon geschrieben. Hier meine Lösung ohne Hilfs RTF

Delphi-Quellcode:

///////////////////////// ERSETZE IM RTF ////////////////////////////////
procedure ersetzeText(myrtf:TRichEdit;finden,ersetzen:String);
var position, lf, le : integer;
    attrib : TTextattributes;
begin
 
  lf := length(finden);
  le := length(ersetzen);
  if pos(finden,myrtf.text) > 0  then
  Begin
   myrtf.SelStart := pos(finden,myrtf.text)-1;
   myrtf.SelLength := lf;
   attrib := myrtf.SelAttributes;
   myrtf.SelText := ersetzen;
   myrtf.SelLength :=  le; 
   myrtf.SelAttributes := attrib;
  End;
end;