Doppel schnell aus Liste löschen.

[Bjoerk]

Zitat von Horst_:

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;