Zitat:
if System.Math.SameValue(1.0, 10.0, 100.0) then ... Wäre das deiner Meinung nach unzulässig ?
Wenn ja, warum.
Nein. In diesem Beispiel würde auch eine Toleranz von 10 schon zur Gleichheit führen.
Der TE möchte aber nicht auf die Gleichheit zweier Werte Prüfen sondern auf >= und da wäre das Äquivalent mit konfigurierbarer Toleranz ja eher System.Math.CompareValue.
Die Vergleiche feuern bei mir beide nicht (wie ich es auch erwarten würde).
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
a, b: Double;
begin
a := 1.0;
b := 10.0;
if a>=b then Button1.Caption := 'Ups';
if System.Math.CompareValue(a,b, 10) = 1 then Button1.Caption := 'OOh';
end;