Einzelnen Beitrag anzeigen

Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.184 Beiträge
 
Delphi 12 Athens
 
#5

Re: Doppelte Einträge in Array finden

  Alt 24. Jan 2004, 22:53
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...
$2B or not $2B
  Mit Zitat antworten Zitat