String in TStringList finden verschnellern?

[a.def]

Zitat von Uwe Raabe:

Zitat von a.def:

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.