Richedit alle einträge nacheinander durchgehen!

[marabu]

Hallo,

wenn die Links in deinem RichEdit den einzelnen Zeilen entsprechen, dann solltest du vielleicht lieber eine ListBox verwenden. Mit dem Style lbOwnerDrawFixed kannst du auch dort Farbe ins Spiel bringen. Hier ein Beispiel mit dem von dir gewünschten Präfix-Test:

Delphi-Quellcode:

const
  SITE = 'http://test.de';

procedure TDemoForm.ListBoxDrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
  with Control as TListbox do 
  begin
    Canvas.FillRect(Rect);
    s := Copy(Items[Index], Length(Items[Index]) - 7, 8);
    if SameText(Copy(Items[i], 1, Length(SITE)), SITE) 
      then Canvas.Brush.Color := clGreen
      else Canvas.Brush.Color := clRed;
    Canvas.TextOut(Rect.Left, Rect.Top, Items[Index]);
  end;
end;

Getippt und nicht getestet.

Gute Nacht

marabu