Arrays doppelte einträge eliminieren

[Corpsman]

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 ,)