Doppelte Einträge in Array finden

[himitsu]

Und wie sieht es damit aus?

Delphi-Quellcode:

Var A: Array of irgendwas;
  I, I2, I3: Integer;

For I := High(A) - 1 downto 0 do
  For I2 := High(A) downto I + 1 do
    If A[I] = A[I2] Then Begin
      For I3 := I2 to High(A) - 1 do
        A[I3] := A[I3 + 1];
      SetLength(A, High(A));
    End;

Um das Array um einen Eintag zu kürzen:
SetLength(MyHashArray, High(MyHashArray)); Wenn bei dir nur noch ein Eintrag im Array ist:

Delphi-Quellcode:

SetLength(MyHashArray, High(MyHashArray) - 1);

{High(MyHashArray) = 0}
SetLength(MyHashArray, High(MyHashArray) - 1);
SetLength(MyHashArray, 0 - 1);
SetLength(MyHashArray, -1);

und -1 ist nicht möglich, also kommt ein Fehler...