Richedit alle einträge nacheinander durchgehen!

[la.reunion]

Hallo, habe mal wieder ein kleines Problem ich habe eine Download funktion und möchte nun dafür jedesmal einen link nehmen der in einem richedit steht. wie kann ich alle links nacheinander durchgehen?

und gleichzeitig noch testen ob der string mit http://test.de anfängt wenn ja soll er grün werden wenn nciht rot

Danke

[mkinzler]

Zitat:

wie kann ich alle links nacheinander durchgehen?

Ein RichEdit hat die Eigenschaft .Lines, was eine StringListe ist.

Zitat:

und gleichzeitig noch testen ob der string mit http://test.de anfängt

Mit Copy kannst du einen Teilstring extrahieren.

[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

[Christian Seehase]

Moin mkinzler,

Zitat von mkinzler:

Ein RichEdit hat die Eigenschaft .Lines, was eine StringListe ist.

nicht ganz. An Lines kann man z.B. keine Objekte anhängen.

[la.reunion]

Danke für eure Hilfe ich werde gleich mal guckne ob ich das hinbekomm

[Codewalker]

hm, was ist denn daraus geworden. Hast du es hinbekommen? Würde mich nämlich auch interessieren

[marabu]

Hallo Thomas,

das klingt ja so, als würde es bei dir nicht funktionieren. Magst du dein Problem schildern?

Grüße vom marabu

[Codewalker]

Naja, das Beispiel oben geht ja nur zeilenweise durch das RichtEdit und nimmt jede Zeile als einen Link. Ich habe aber einen Fließtext, in dem vereinzelt Links zu finden sind (siehe Thread zu TParamList). Ich hatte das so verstanden, dass la.reunion darauf abzielte. Kennt denn jemand eine Möglichkeit, die Links in einem RichtEdit zu erkenne bzw. zu iterieren?

Danke und Grüße

Thomas

[marabu]

Hallo Thomas,

die zuverlässige Erkennung von URLs (http oder mailto) in einem Fließtext benötigt ein Erkennungszeichen. Wird der Protokollvorsatz verwendet, dann erkennt das RichEdit-Control solche URLs selbst. Fehlen diese Vorsätze, dann brauchst du einen Ersatz (z.B. das Zeichen @ in einer E-Mail-Adresse). Die restliche Arbeit dürfte so aussehen: Zurücksetzen der Formatierung, Feststellen des sichtbaren Bereichs und Suchen und Formatieren in diesem Textausschnitt. Oder du suchst nach einer Komponente, die das alles schon kann.

Freundliche Grüße