Richedit - In einer Zeile nur ein par Zeichen einfärben, möglich?

[Bummi]

ich vermute Du suchst das

Delphi-Quellcode:

uses StrUtils;

///......




var
  i:INteger;
  Textstr,tofindstr:String;

begin
  i := 1;
  tofindstr := Edit1.Text;
  Textstr := StringReplace(RichEdit1.Text,#13#10,#13,[rfReplaceAll]);
  i := PosEx(tofindstr,Textstr,i) - 1;


while i > 0 do
 begin

  RichEdit1.SelStart := i ;
  RichEdit1.SelLength := Length(tofindstr);
  RichEdit1.SelAttributes.Color := clRed;
  RichEdit1.SelAttributes.Style := [fsBold, fsItalic];
  i := PosEx(tofindstr,Textstr,i + Length(tofindstr) ) -1 ;
 end;
end;