Delphi-PRAXiS
Seite 1 von 2  1 2      

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi RichEdit.FindText beschleunigen (https://www.delphipraxis.net/107652-richedit-findtext-beschleunigen.html)

Franzelchen 31. Jan 2008 08:54


RichEdit.FindText beschleunigen
 
Hallo!

Ich habe ein Problem mit RichEdit.FindText

Ich färbe Elemente einer Listbox in einem RichEdit rot ein. Zum Suchen dieser Elemente benutze ich FindText. Das dauert relativ lange auf meinem 400 Mhz Rechner. Nun meine Frage: Gibt es eine Möglichkeit FindText zu beschleunigen? Beispiel FastStrings für schnelle Stringoperationen.

taaktaak 31. Jan 2008 09:00

Re: RichEdit.FindText beschleunigen
 
Moin, Moin.

Zitat:

färbe Elemente einer Listbox in einem RichEdit
Das verstehe ich nicht - Listbox? Richedit? Gibt's nach D7 ein anderes Richtedit mit integrierter ListBox?

Gruß Ralph

Bernhard Geyer 31. Jan 2008 09:00

Re: RichEdit.FindText beschleunigen
 
- Neuerer Rechner ( :mrgreen: )
- Andere Komponente (TRichView)
- FastStrings selbst ausprobieren

marabu 31. Jan 2008 09:01

Re: RichEdit.FindText beschleunigen
 
Hallo,

wie groß ist der Text im RichEdit und wieviele Einträge hat die ListBox mit den Suchworten?
Zeige mal deinen Code. Vermutlich greifst du des öfteren auf die Eigenschaft RichEdit.Lines.Text zu.

Grüße vom marabu

Franzelchen 31. Jan 2008 09:13

Re: RichEdit.FindText beschleunigen
 
Liste der Anhänge anzeigen (Anzahl: 1)
Anbei mein Quelltext.

marabu 31. Jan 2008 09:36

Re: RichEdit.FindText beschleunigen
 
Der Zugriff auf RichEdit.Text innerhalb der Schleife ist eine gewaltige Bremse.

Hier noch ein Link zum gleichen Thema: klick

Freundliche Grüße

Franzelchen 31. Jan 2008 10:05

Re: RichEdit.FindText beschleunigen
 
Besten Dank! Ich probiere es gleich mal aus.

Franzelchen 1. Feb 2008 12:11

Re: RichEdit.FindText beschleunigen
 
Liste der Anhänge anzeigen (Anzahl: 1)
Ich hab's ausprobiert.

Statt schneller zu werden liefert FindTextAll Fehler über Fehler.

Anbei der eingebaute Quelltext vom Marabu

marabu 1. Feb 2008 13:15

Re: RichEdit.FindText beschleunigen
 
Hallo,

ich habe mir dein Test-Projekt kurz angeschaut und folgendes festgestellt:

(1) Fehler treten bei mir nicht auf.
(2) Wenn ich auf den Button "Marabu" klicke, dann vergehen 19 Sekunden bis 483 Treffer markiert wurden.
(3) Wenn ich auf den Button "Meine" klicke, dann werden in 0.5 Sekunden 410 Treffer markiert.

Daraus schließe ich zuerst einmal, dass die beiden Codes nicht das Gleiche tun. Ich werde das heute abend genauer analysieren.

Freundliche Grüße

Franzelchen 1. Feb 2008 13:54

Re: RichEdit.FindText beschleunigen
 
Hallo Marabu,

Fehler treten nicht auf???


Alle Zeitangaben in WEZ +1. Es ist jetzt 19:31 Uhr.
Seite 1 von 2  1 2      

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz