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;