Warum baust Du eine Liste neu auf, wenn Du welche rauslöschen willst? Oder habe ich das nicht verstanden?
Schachpunkt kömmte aus dies "Util_SameFloatPoint" sein.
... Ach, "Double" für "doppelte" ...
Delphi-Quellcode:
function IsDuplicateInList(List: array of Variant): Boolean;
var
i : Integer;
ii: Integer;
begin
for i := 0 to Length(List) - 2 do
for ii := i + 1 to Length(List) - 1 do
if List[i] = List[ii] then
Exit(True);
Result := False;
end;
Das ist aus meiner Toolsammlung, hilft das weiter?
Das Sortieren der Liste könnte helfen.