Delphi System单元-Odd- 判断是否是奇数

Delphi System单元-Odd- 判断是否是奇数

原型：

?

1	function Odd(X：Integer): boolean;

 

Delphi示例:

?

1 2 3 4 5 6 7 8 9 10 11 12

var   i: Integer;   b: Boolean; begin   i := 1;   b := Odd(i);               {是奇数返回真}   ShowMessage(BoolToStr(b)); {True}     i := 2;   b := Odd(i);   ShowMessage(BoolToStr(b)); {False} end;

这种方式也可以判断奇数偶数

?

1 2 3 4

if (x mod 2)=0 then   showmessage('偶数') else   showmessage('奇数') ;

　　

 

创建时间：2020.07.29　　更新时间：