wird dir aber wohl nichts anderes übrigbleiben
(verbessert mich wenn ich mich irre) aber ein anderer weg als "per hand" ist mir nicht bekannt
Delphi-Quellcode:
for i:= 0 to Length(array)-1 do begin
for i2:= 0 to Length(array)-1 do begin
if array[i2] = array[i] then begin
//tu was
end;
end;
end;