Zitat von
marabu:
Wer keine Math-
Unit hat, der kann sich leicht einen eigenen Epsilon-Test implementieren:
Das geht wesentlich kürzer. =)
Delphi-Quellcode:
function IsZero(value: Extended; epsilon: Extended = 1E-15): Boolean;
begin
Result := Abs(Value) <= Abs(epsilon);
end;
function IsEqual(value1, value2: Extended): Boolean;
begin
Result := IsZero(value1 - value2);
end;
