Einzelnen Beitrag anzeigen

Dieter.Soergel

Registriert seit: 27. Aug 2008
7 Beiträge
 
#1

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

  Alt 8. Dez 2021, 20:18
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:

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

Geändert von Dieter.Soergel ( 8. Dez 2021 um 20:21 Uhr)
  Mit Zitat antworten Zitat