Einzelnen Beitrag anzeigen

a.def
(Gast)

n/a Beiträge
 
#36

AW: String in TStringList finden verschnellern?

  Alt 8. Jan 2017, 21:51
Habe es nun testen können. Funktioniert einwandfrei, Sort; erst später aufzurufen und Sorted zu setzen (habe einfach beides gemacht).
Die Wartezeit für das "manuelle Sortieren" der Liste im Nachhinein mit dem Aufruf durch Sort; oder dem Setzen von Sorted := True ist sehr viel kürzer als die die entsteht, wenn man es bereits vorher so einstellt.
Sorted := true ruft intern sowieso ein Sort auf, das nun aber nichts mehr verändert. Probier mal, ob es noch etwas schneller ist, wenn du den expliziten Sort -Aufruf weglässt.
Gute Information.
Ich hatte extra noch den STRG+Linksklick auf .Sorted gemacht um danach zu suchen. Bin aber erst daran gescheitert es zu finden.
Bis procedure TStringList.SetSorted(Value: Boolean); bin ich gekommen und habe dort dann diese wunderschöne Zeile if Value then Sort; übersehen.

Ich werde das später mal mit der TStopWatch prüfen.
  Mit Zitat antworten Zitat