Syntax highlighting in RichEdit

[hedie]

Hallo

Ich möchte in einem RichEdit gewisse strings Highlighten.

Hab das bis jetzt mal so versucht:

Delphi-Quellcode:

repeat
richedit1.SelStart := RichEdit1.FindText('<?',i,length(richedit1.Lines.Text),myType);
richedit1.SelStart := RichEdit1.FindText('?>',i,length(richedit1.Lines.Text),myType);

RichEdit1.SelLength := 2;
RichEdit1.SelAttributes.Color := clRed;
i := i + 1;
until i = length(richedit1.Lines.Text);

Das Funktioniert auch, aber leider nur sehr langsam.


Hat jemand eine idee wie man das schneller gestallten könnte?

Danke schonmal