Delphi-PRAXiS - Einzelnen Beitrag anzeigen - Delphi 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:

zusammenfalten · markieren

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?

Einzelnen Beitrag anzeigen

Re: Vergleich von Real-Werten ---> klappt nicht