replace i richedit

RichEdit1.Clear;
  RichEdit1.Lines.Add('Noget');
  RichEdit1.Lines.Add('NogetAndet');
  RichEdit1.SelStart := 1;
  RichEdit1.SelLength := 5;
  RichEdit1.SelAttributes.style := [fsBold];
  RichEdit1.SelLength := 0;
  RichEdit1.SelAttributes.style := [];

du kan bruge richedit1.findtext

with RichEdit1 do begin
    Findtext :='Noget';
    Replace with
        SelAttributes.Style := [fsBold];
    end;
end;

Bare en tanke :) Man kan slet ikke bruge den kode, men idéen er der, man skal bare prøve sig lidt frem :)

Ellers så prøv clscableguys bud ;)

var
  i : integer;
begin
  i := 1;
  RichEdit1.SelectAll;
  RichEdit1.MaxLength := RichEdit1.SelLength;
  while i < RichEdit1.MaxLength do
    with RichEdit1 do
      begin
          selstart := Findtext('Noget', i, MaxLength, [stMatchCase]);
          sellength := length('Noget');
          SelAttributes.Style := [fsBold];
          i := SelStart + SelLength;
          SelLength := 0;
        end;
end;