Wenn man Fließkommazahlen mit einer bestimmten Genauigkeit vergleichen will macht man das z.B. so:

markieren

Delphi-Quellcode:

uses System.Math;

const
   epsilon = 1E-2;
begin
   if SameValue(a, b, epsilon) then [...]
end;

Wenn ich schauen will ob Zahl c zwischen a und b liegt kenne ich InRange:

markieren

Delphi-Quellcode:

uses System.Math;

begin
   if InRange(meineZahl, 10.5, 75.6) then [...]
end;

Ich kann aber nirgendwo ein Epsilon angeben. Wenn meineZahl nun 10.499999999999 ist, schlägt die Überprüfung fehl. Mir als Mensch ist es allerdings genau genug

Meine Frage: Gibt es da nichts fertiges in der Standard-Bibliothek?

Unter Vergleichsroutinen habe ich sonst nichts gefunden...

Man war einfach der Meinung, dass niemand sowas braucht.

zusammenfalten · markieren

Delphi-Quellcode:

if InRange(meineZahl, 10.5-, 75.6+DoubleResolution) then

// oder

function InRange(const AValue, AMin, AMax: Double): Boolean;
begin
  Result := (AValue+DoubleResolution >= AMin) and (AValue-DoubleResolution <= AMax);
end;

// oder

function InRange(const AValue, AMin, AMax: Double): Boolean;
begin
  Result := InRange(AValue, AMin-DoubleResolution, AMax+DoubleResolution);
end;

Gut, das "Epsilon" hab ich hier bissl "minimiert" ... man darf es gern für AMin und AMax jeweils entsprechend den Berechnungen in SameValue berechnen, bzw.

markieren

Delphi-Quellcode:

function InRange(const AValue, AMin, AMax: Double): Boolean;
begin
  Result := System.Math.InRange(AValue, AMin, AMax) or SameValue(AValue, AMin) or SameValue(AValue, AMax);
end;

InRange bekommt alle Parameter in Registern, die theoretisch auch in der Funktion nicht auf den Stack wandern müssten, falls der Compiler "schlau" genug ist.
Mit einem 4. Parameter für Epsilon und vorallem auch den internen Berechnungen, für ein fehlendes Epsilon, ist das definitiv nicht mehr möglich.