MinXY Routines

Unit
QESBPCSMath

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

Declaration
Function MinXY(const X, Y: Byte): Byte;

Implementation

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

Declaration
Function MinXY(const X, Y: ShortInt): ShortInt;

Implementation

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

Declaration
Function MinXY(const X, Y: Word): Word;

Implementation

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

Declaration
Function MinXY(const X, Y: SmallInt): SmallInt;

Implementation

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

Declaration
Function MinXY(const X, Y: LongWord): LongWord;

Implementation

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

Declaration
Function MinXY(const X, Y: LongInt): LongInt;

Implementation

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

Declaration
Function MinXY(const X, Y: Int64): Int64;

Implementation

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

Declaration
Function MinXY(const X, Y: Extended): Extended;

Implementation

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

Declaration
Function MinXY(const X, Y: Double): Double;

Implementation

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

Declaration
Function MinXY(const X, Y: Single): Single;

Implementation

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


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