Addieren in if Abfrage

[marabu]

Wer keine Math-Unit hat, der kann sich leicht einen eigenen Epsilon-Test implementieren:

Delphi-Quellcode:

function IsZero(value: Extended; epsilon: Extended = 0): Boolean;
begin
  if epsilon = 0 
    then epsilon := 1E-15 
    else epsilon := Abs(epsilon);
  Result := Abs(Value) <= epsilon;
end;

function IsEqual(value1, value2: Extended): Boolean;
begin
  Result := IsZero(value1 - value2);
end;