Vergleich von Real-Werten ---> klappt nicht

[alex517]

nach dem man die Theorie verstanden hat,
kann man es sich auch leichter machen und auf vorhandene
Funktionen zugreifen wie z.B.:

Delphi-Quellcode:

uses Math;

function SameValue(..)
function IsZero(..)
function CompareValue(..)

...

alex


Edit:

Delphi-Quellcode:

function SameValue(const A, B: Single; Epsilon: Single = 0): Boolean; overload;
function SameValue(const A, B: Double; Epsilon: Double = 0): Boolean; overload;
function SameValue(const A, B: Extended; Epsilon: Extended = 0): Boolean; overload;

function IsZero(const A: Single; Epsilon: Single = 0): Boolean; overload;
function IsZero(const A: Double; Epsilon: Double = 0): Boolean; overload;
function IsZero(const A: Extended; Epsilon: Extended = 0): Boolean; overload;

function CompareValue(const A, B: Integer): TValueRelationship; overload;
function CompareValue(const A, B: Int64): TValueRelationship; overload;
function CompareValue(const A, B: Single; Epsilon: Single = 0): TValueRelationship; overload;
function CompareValue(const A, B: Double; Epsilon: Double = 0): TValueRelationship; overload;
function CompareValue(const A, B: Extended; Epsilon: Extended = 0): TValueRelationship; overload;

@Medium, #12: so besser?