RichEdit-Formatierung

[alcaeus]

Pos sucht dir das erste Vorkommen von Msg. Wenn du alle färben willst, musst du es wahrscheinlich so machen:

Delphi-Quellcode:

for i := 1 to Length(RichEdit.Text)-Length(Msg)+1 do
begin
  if Copy(RichEdit.Text,i,Length(Msg) = Msg then
  begin
    RichEdit.SelStart := i-1;
    RichEdit.SelLength := Length(Msg);
    RichEdit.SelAttributes.Color := Color;
    RichEdit.SelLength := 0;
  end;
end;