Delphi System单元-Odd- 判断是否是奇数
2020-12-25 11:27
标签:pre span fun class int nbsp als end 奇数 Delphi System单元-Odd- 判断是否是奇数 原型: Delphi示例: 这种方式也可以判断奇数偶数 创建时间:2020.07.29 更新时间: Delphi System单元-Odd- 判断是否是奇数 标签:pre span fun class int nbsp als end 奇数 原文地址:https://www.cnblogs.com/guorongtao/p/13396183.htmlfunction Odd(X:Integer): boolean;
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(‘奇数‘) ;
文章标题:Delphi System单元-Odd- 判断是否是奇数
文章链接:http://soscw.com/index.php/essay/38136.html