Hallo,
wie kannst Du Dir so sicher sein?
Also, ich weiß nicht was du machst? Anbei mein letztes Test Projekt.
Da man weiß, daß das
Delphi-Quellcode:
procedure TFloatPoints.DeleteDoubles;
var
I, J: integer;
begin
for I := FCount - 2 downto 0 do
for J := FCount - 1 downto I + 1 do
if SameFloatPoint(FItems[I], FItems[J]) then
Delete(J);
end;
auf jedenfall funzt, kann man so auf Plausibilität prüfen.
Delphi-Quellcode:
procedure TFloatPointsTestForm.CompareButtonClick(Sender: TObject);
begin
CompareButton.Enabled := false;
Application.ProcessMessages;
FList2.Sort;
if FList1.Compare(FList2) then
StatusLabel.Caption := 'OK'
else
StatusLabel.Caption := 'Failed';
end;