Doppelte Einträge in Array finden

[Minz]

Ist doch vom Prinzip nicht schwierig:

Delphi-Quellcode:

for i:=low(Array) to high(array)-1 do begin
    for i2:=i+1 to high(array) do begin
        if Array[i]=Array[i2] then entferneEintrag; 
        //Achtung! die Länge des Arrays ist jetzt anders
        //müsste man prüfen, ob das irgendwo zum tragen kommt
        //hiermit findet man allerdings nur doppelte Einträge, nicht jedoch
        //dreifache oder nochmehrfache gleiche Einträge s.u.
    end;
end;

für mehr als doppeltfache gleich Einträge: (z.B. Array[1], [5] und [10] sind gleich)

Delphi-Quellcode:

for i:=low(Array) to high(array)-1 do begin
    for i2:=low(Array) to high(array) do begin
        if not (i=i2) then
           if Array[i]=Array[i2] then entferneEintrag; 
    end;
end;