RichEdit-Formatierung

[faux]

Zitat von alcaeus:

Delphi-Quellcode:

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