Stimmt. Leider.. Das Thema macht mich echt fertig. Horst, und wieso jetzt plötzlich das funzt? Keinen Plan.. Man findet im Netz über Delphi Koordinaten Sortieren fast nichts.
Delphi-Quellcode:
procedure TFloatPoints.ProbablyRemoveDoubles;
var
I: integer;
begin
SortbyX;
for I := FCount - 1 downto 1 do
if Util_SameFloatPoint(FItems[I], FItems[I - 1]) then
Delete(I);
SortbyY;
for I := FCount - 1 downto 1 do
if Util_SameFloatPoint(FItems[I], FItems[I - 1]) then
Delete(I);
end;
Bis auf weiteres hab ich an den wichtigsten Stellen if List.IndexOf(Value) < 0 then List.Add(Value) ergänzt und ruf die RemoveDoubles gar nicht mehr auf.
