Also ich bin ja der meineung das dein 2. Sortieren nicht notwendig ist.
Denn du entfernst aus einem Sortierten Array alle Doppelten, wo soll da Unordnung entstehen ?
Probier mal das hier, ..
Delphi-Quellcode:
quicksort_Array;
// entfernen doppelte, dreifache ..
for i :=high(MyArray) downto 1 do begin
if MyArray[i-1] = MyArray[i] then begin
for j := i to High(Myarray)-1 do begin
myArray[j] := myArray[j+1];
end;
setlength(Myarray, high(myarray));
end;
end;
habs aber nicht getestet ,)