Hallo,
also deine Quicksort-Prozedur aus der im Thread #1 angehängten Unit1 kann nicht funktionieren.
Die sieht nämlich so aus
Delphi-Quellcode:
procedure TForm1.Quicksort(S:
Array of Integer; US,
OS: Integer);
var
M, T, I: Integer;
begin
U := US;
O :=
OS;
M := (U + O)
div 2;
hier fehlt dann einiges!!
for I := U
to M
do
if S[I] > S[O - I]
then
begin
T := S[I];
S[I] := S[O - I];
S[O - I] := T;
Inc(U);
Dec(O)
end;
Label1.Caption := '
';
for I := US
to OS do
Label1.Caption := Label1.Caption + IntToStr(S[I]) + '
; ';
if O > US
then
Quicksort(S, US, O);
if U <
OS then
Quicksort(S, U,
OS);
end;
Schick bitte mal die richtige Datei.
Oder schau doch einfach mal
hier
LG
mani