String in TStringList finden verschnellern?

[a.def]

Das gibt einem zu denken. Danke für die ausführliche Erklärung!

Eine Frage habe ich noch. Wenn man sorted auf True setzt, ist das hinzufügen zur Liste deutlich langsamer und Einträge die schon vorhanden sind werden ignoriert.
Spielt es eine Rolle, ob ich Sorted vor oder nach dem Hinzufügen all meiner Einträge auf True setze?

[Fritzew]

Also:

Delphi-Quellcode:

sl := Tstringlist.create;
sl.Duplicates = dupAccept; // Damit Duplicate erlaubt sind
// Alles einfügen

// dann
sl.sorted := true;  // Sortiert die Liste

so sollte es gehen

[nahpets]

Wenn Sorted = true muss beim Einfügen geschaut werden, wo der neue Eintrag hin muss, damit er dort eingefügt werden kann.

Statt Sorted = true könntest Du mal probieren, ob der Aufruf von Sort vor der Stelle, ab der Du suchen willst, etwas bringt. Du muss dann aber an der Stelle mit etwas Wartezeit rechnen.

Man kann für den Fall dann auch eine eigene Sortierroutine zuweisen, die eventuell auch das Laufzeitverhalten ändern könnte.

[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.

[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.

[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.

[EmWieMichael]

Zitat von himitsu:

Rein "logisch" nur eine mathematische Rechnung.
V = A - B (gleich 0, kleiner 0, größer 0)
CompareValue
Dann weiß man sofort ob größer, kleiner oder gleich.
...

Wahrscheinlich steh´ ich wirklich auf´m Schlauch : Ich habe jetzt eine Rechnung aufgestellt und das Ergebnis steht in 'V'; ich weiß, dass 'V' kleiner 0, größer 0 oder gleich 0 ist. Um auf dieses Ergebnis zu reagieren, benötige ich doch immer noch zwei Vergleiche:

Code:

...
if (V = 0) then 
 begin
   Gefunden; 
   Break;
 end; 
if (V < 0) then 
 SuchindexNachUnten;
else
 SuchindexNachOben;
...

[Klaus01]

oder so:

Delphi-Quellcode:

case v of
  low(Integer) .. -1: SuchIndexNachUnten;
  0: Gefunden;
  1 .. high(Integer): SuchIndexNachOben;
end;

Grüße
Klaus

[EmWieMichael]

Zitat von Klaus01:

oder so:

Delphi-Quellcode:

case v of
  low(Integer) .. -1: SuchIndexNachUnten;
  0: Gefunden;
  1 .. high(Integer): SuchIndexNachOben;
end;

Richtig, geht auch; allerdings dürfte diese Variante (wenigstens theoretisch) langsamer sein.

[p80286]

@a.def
wenn du mit .sorted:=True; arbeitest, dann mußt Du noch eine Behandlung von doppelten Datensätzen mit einbauen z.B. .Duplicates:=dupIgnore; Gruß
K-H