Unit
QESBPCSMath
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