Returns the Maximum of 4 Values.Unit
QESBPCSMath
| 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;
| W | First Value to Process. |
| X | Second Value to Process. |
| Y | Third Value to Process. |
| Z | 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