Fortschrittsanzeige beim Sortieren

[efknarf]

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.
Wie kann ich nun also die dafür notwendigen Daten, also Bar.Min, Bar.Max, Bar.Position usw. ermitteln?

Danke schon mal im Voraus

Frank

[Gausi]

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

[efknarf]

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.