Delphi 学习大师

搜索

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

滔 Roy

2020-08-26

原型：

function Odd(X：Integer): boolean;

Delphi示例:

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;

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

if (x mod 2)=0 then

   showmessage('偶数')

else

   showmessage('奇数') ;