MinXYZ Routines
Returns the Minimum of 3 Values.

Unit
QESBPCSMath

Overloaded Variants
Function MinXYZ(const X, Y, Z: Byte): Byte;
Function MinXYZ(const X, Y, Z: ShortInt): ShortInt;
Function MinXYZ(const X, Y, Z: Word): Word;
Function MinXYZ(const X, Y, Z: SmallInt): SmallInt;
Function MinXYZ(const X, Y, Z: LongWord): LongWord;
Function MinXYZ(const X, Y, Z: LongInt): LongInt;
Function MinXYZ(const X, Y, Z: Int64): Int64;
Function MinXYZ(const X, Y, Z: Extended): Extended;
Function MinXYZ(const X, Y, Z: Double): Double;
Function MinXYZ(const X, Y, Z: Single): Single;

Declaration
Function MinXYZ(const X, Y, Z: Byte): Byte;

Parameters
First Value to Process.
Second Value to Process.
Third Value to Process.

Category
Arithmetic Routines for Integers
Arithmetic Routines for Floats

Implementation

function MinXYZ (const X, Y, Z: Byte): Byte;
begin
     Result := X;
     if Y < Result then
          Result := Y;
     if Z < Result then
          Result := Z;
End;

Declaration
Function MinXYZ(const X, Y, Z: ShortInt): ShortInt;

Implementation

function MinXYZ (const X, Y, Z: ShortInt): ShortInt;
begin
     Result := X;
     if Y < Result then
          Result := Y;
     if Z < Result then
          Result := Z;
End;

Declaration
Function MinXYZ(const X, Y, Z: Word): Word;

Implementation

function MinXYZ (const X, Y, Z: Word): Word;
begin
     Result := X;
     if Y < Result then
          Result := Y;
     if Z < Result then
          Result := Z;
End;

Declaration
Function MinXYZ(const X, Y, Z: SmallInt): SmallInt;

Implementation

function MinXYZ (const X, Y, Z: SmallInt): SmallInt;
begin
     Result := X;
     if Y < Result then
          Result := Y;
     if Z < Result then
          Result := Z;
End;

Declaration
Function MinXYZ(const X, Y, Z: LongWord): LongWord;

Implementation

function MinXYZ (const X, Y, Z: LongWord): LongWord;
begin
     Result := X;
     if Y < Result then
          Result := Y;
     if Z < Result then
          Result := Z;
End;

Declaration
Function MinXYZ(const X, Y, Z: LongInt): LongInt;

Implementation

function MinXYZ (const X, Y, Z: LongInt): LongInt;
begin
     Result := X;
     if Y < Result then
          Result := Y;
     if Z < Result then
          Result := Z;
End;

Declaration
Function MinXYZ(const X, Y, Z: Int64): Int64;

Implementation

function MinXYZ (const X, Y, Z: Int64): Int64;
begin
     Result := X;
     if Y < Result then
          Result := Y;
     if Z < Result then
          Result := Z;
End;

Declaration
Function MinXYZ(const X, Y, Z: Extended): Extended;

Implementation

function MinXYZ (const X, Y, Z: Extended): Extended;
begin
     Result := X;
     if Y < Result then
          Result := Y;
     if Z < Result then
          Result := Z;
End;

Declaration
Function MinXYZ(const X, Y, Z: Double): Double;

Implementation

function MinXYZ (const X, Y, Z: Double): Double;
begin
     Result := X;
     if Y < Result then
          Result := Y;
     if Z < Result then
          Result := Z;
End;

Declaration
Function MinXYZ(const X, Y, Z: Single): Single;

Implementation

function MinXYZ (const X, Y, Z: Single): Single;
begin
     Result := X;
     if Y < Result then
          Result := Y;
     if Z < Result then
          Result := Z;
End;


HTML generated by Time2HELP
http://www.time2help.com