procedure TForm1.Button1Click(Sender: TObject);
var tmpint:integer;
begin
tmpint:=124;
if (tmpint mod 2)=1 then
showmessage('ji')
else
showmessage('ou');
end;
var tmpint:integer;
begin
tmpint:=124;
if (tmpint mod 2)=1 then
showmessage('ji')
else
showmessage('ou');
end;
解决方案 »
- Delphi 现在还有没有发展,不知道最后工资能达到多少,是否比Java强
- 关于使用COM组件中variant的数所类型问题
- --------如何关闭窗体之中的窗体------
- paradox表中备注字段的查找问题?
- 大家好,我怎么才能做到在一个图像上动态标注呀?
- 请请,mssql与ado连接后,调用出错????
- 今天公司发了100块,唉,大家中秋快乐!!!!!!!!!!!!!!!!!!!!!1
- 用递归的算法列出组合的合部情形
- 为什么出现table is read only?????
- 窗体的变化
- 关于数据库的问题,困扰我好几个星期了.
- 谁知道关于调整麦克风音量的API函数???请叙述详细一些,紧急,谢谢!!!!!!
功能 测试参数X是否为奇数。
说明 X为奇数时,Odd返回值True,否则返回值False。