Richedit: Suche nach Attributen (z.B. fsBold)

**Dieter.Soergel**

Hallo,
ich suche nach einem schnelleren Verfahren um nach Attributen (Style, Fontsize ...) zu suchen.
Das Durchsuchen von 9000 Zeichen dauert ca. 20 Sekunden.
Ich verwende Delphi 10.4 CE.
Hier ein einfaches Beispiel, suche nach fsBold:

markieren

Code:

			  
Repeat

    // Ist fsBold enthalten?

    LFound := TFontStyle.fsBold in rtfText.SelAttributes.Style;

    if LFound then

      Break; // fertig

    // nächstes Zeichen

    rtfText.SelStart := rtfText.SelStart + 1;

    rtfText.SelLength := 1;

until rtfText.SelStart = Length(rtfText.Text);

Hab im Web nichts gefunden, wie nach Formatierung gesucht werden kann.

Danke für Tipps!
Dieter

Richedit: Suche nach Attributen (z.B. fsBold)

Richedit: Suche nach Attributen (z.B. fsBold)

Forumregeln