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