Delphi-PRAXiS - Delphi Fortschrittsanzeige beim Sortieren

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)

- - Delphi Fortschrittsanzeige beim Sortieren (https://www.delphipraxis.net/85021-fortschrittsanzeige-beim-sortieren.html)

Fortschrittsanzeige beim Sortieren

Hallo, ihr fleißigen Helfer,

mich beschäftigt seit einiger Zeit folgendes Problem. Beim Sortiern sehr großer Datenmengen soll eine Fortschrittsanzeige erscheinen. Während beim Insertionssort die Fortschrittsanzeige relativ einfach initialisiert werden kann

Delphi-Quellcode:

			//Fortschrittsanzeige initialisieren

Bar.Min:=0;

Bar.Max:=ItemCount;

Bar.Step:=100;

//und bei Aktualisierung

Bar.Position:=ItemIndex;

//bzw. mit Schritten

Bar.StepBy;

und auch wunderbar funzt, weiß ich beim Quicksort leider nicht, wo ich die erforderlichen Informationen herholen soll. :wall:
Wie kann ich nun also die dafür notwendigen Daten, also Bar.Min, Bar.Max, Bar.Position usw. ermitteln? :gruebel:

Danke schon mal im Voraus

Frank

Re: Fortschrittsanzeige beim Sortieren

Man könnte evtl. beim Beenden eines rekursiven Durchlaufs (d.h. beim Sprung in die aufrufende Quicksort-Funktion) mitliefern, wie lang die Zeichenfolge ist, die gerade sortiert wurde und die Fortschrittsanzeige entsprechend anpassen. Bzw. sollte das nur passieren, wenn man im Rekurionsbaum von "ganz unten" eine Stufe hochgeht, da man sonst doppelt und dreifach zählen würde...

Re: Fortschrittsanzeige beim Sortieren

Danke sehr für die schnelle Hilfe. Hätte ich aber auch selbst drauf kommen können.
Aber ich bin sicher, daß das das Ei des Columbus ist.
:lol: