MaxWXYZ Routines
Returns the Maximum of 4 Values.

Unit
QESBPCSMath

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

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

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

Category
Arithmetic Routines for Integers
Arithmetic Routines for Floats

Implementation

function MaxWXYZ (const W, X, Y, Z: Byte): Byte;
begin
     Result := W;
     if X > Result then
          Result := X;
     if Y > Result then
          Result := Y;
     if Z > Result then
          Result := Z;
End;

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

Implementation

function MaxWXYZ (const W, X, Y, Z: ShortInt): ShortInt;
begin
     Result := W;
     if X > Result then
          Result := X;
     if Y > Result then
          Result := Y;
     if Z > Result then
          Result := Z;
End;

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

Implementation

function MaxWXYZ (const W, X, Y, Z: Word): Word;
begin
     Result := W;
     if X > Result then
          Result := X;
     if Y > Result then
          Result := Y;
     if Z > Result then
          Result := Z;
End;

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

Implementation

function MaxWXYZ (const W, X, Y, Z: SmallInt): SmallInt;
begin
     Result := W;
     if X > Result then
          Result := X;
     if Y > Result then
          Result := Y;
     if Z > Result then
          Result := Z;
End;

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

Implementation

function MaxWXYZ (const W, X, Y, Z: LongWord): LongWord;
begin
     Result := W;
     if X > Result then
          Result := X;
     if Y > Result then
          Result := Y;
     if Z > Result then
          Result := Z;
End;

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

Implementation

function MaxWXYZ (const W, X, Y, Z: LongInt): LongInt;
begin
     Result := W;
     if X > Result then
          Result := X;
     if Y > Result then
          Result := Y;
     if Z > Result then
          Result := Z;
End;

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

Implementation

function MaxWXYZ (const W, X, Y, Z: Int64): Int64;
begin
     Result := W;
     if X > Result then
          Result := X;
     if Y > Result then
          Result := Y;
     if Z > Result then
          Result := Z;
End;

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

Implementation

function MaxWXYZ (const W, X, Y, Z: Extended): Extended;
begin
     Result := W;
     if X > Result then
          Result := X;
     if Y > Result then
          Result := Y;
     if Z > Result then
          Result := Z;
End;

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

Implementation

function MaxWXYZ (const W, X, Y, Z: Double): Double;
begin
     Result := W;
     if X > Result then
          Result := X;
     if Y > Result then
          Result := Y;
     if Z > Result then
          Result := Z;
End;

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

Implementation

function MaxWXYZ (const W, X, Y, Z: Single): Single;
begin
     Result := W;
     if X > Result then
          Result := X;
     if Y > Result then
          Result := Y;
     if Z > Result then
          Result := Z;
End;


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