| 技术论坛 |
|
|
| ≡技术区≡ ① |
| DELPHI技术 |
| lazarus/fpc/Free Pascal |
| 移动应用开发 |
| Web应用开发 |
| 数据库专区 |
| 报表专区 |
| 网络通讯 |
| 开源项目 |
| 论坛精华贴 |
| ≡发布区≡ ② |
| 发布代码 |
| 发布控件 |
| 文档资料 |
| 经典工具 |
| ≡事务区≡ ③ |
| 网站意见 |
| 盒子之家 |
| 招聘应聘 |
| 信息交换 |
| 论坛信息 |
|||
|
| 导航： | 论坛 -> DELPHI技术 斑竹:liumazi,sephil | |||||
| 作者： |
|
2004/3/24 13:00:16 | ||||
| 标题： |
|
加入我的收藏 | ||||
| 楼主： | if strtoint(trim(edit1.text))/2 <> ... then begin messagebox(0,'每场副数过于，应该小于16！','错误',mb_ok+mb_iconerror); abort; end; 大家帮帮忙。 ---------------------------------------------- Function IThink(Boy,Girl : TPerson) : String; begin if Boy.钱 < 10W then Girl.Say(''滚!'') else begin if Girl.Anser = ''我愿意'' then Result := ''结婚'' else Result := IntToStr(88); end; 风过不折→百炼成尧 QQ: 7315910 |
|||||
| 作者： |
|
2004/3/24 13:08:01 | ||||
| 1楼： | 我的建议：1）你可以把任何一个数*2 处理，这样就成偶数了 2）要不就用mod2判断是否为0 ---------------------------------------------- - |
|||||
| 作者： |
|
2004/3/24 13:16:53 | ||||
| 2楼： | 在change事件里面用2取余就可以了 ---------------------------------------------- - |
|||||
| 作者： |
|
2004/3/24 13:27:47 | ||||
| 3楼： | 用mod的代码怎么写呢？： if (strtoint(trim(edit1.text)) mod 2 <>0 then begin showmessag('只能输入偶数'); abort; end; 这样是错的啊。。 ---------------------------------------------- Function IThink(Boy,Girl : TPerson) : String; begin if Boy.钱 < 10W then Girl.Say(''滚!'') else begin if Girl.Anser = ''我愿意'' then Result := ''结婚'' else Result := IntToStr(88); end; 风过不折→百炼成尧 QQ: 7315910 |
|||||
| 作者： |
|
2004/3/24 13:31:30 | ||||
| 4楼： | 顶一下。 ---------------------------------------------- 中流一壶，千金争挈。宁为铅刀，毋为楮叶。错节盘根，利器斯别。识时务者，呼为俊杰！ |
|||||
| 作者： |
|
2004/3/24 13:33:43 | ||||
| 4楼： | 可能你输入的不是数字? 需要TRY一下! ---------------------------------------------- - 
|
|||||
| 作者： |
|
2004/3/24 13:37:13 | ||||
| 5楼： | 4 楼 什么哟？ 我还没的运行呢，是代码错误啊，大家帮我试一下嘛。。 ---------------------------------------------- Function IThink(Boy,Girl : TPerson) : String; begin if Boy.钱 < 10W then Girl.Say(''滚!'') else begin if Girl.Anser = ''我愿意'' then Result := ''结婚'' else Result := IntToStr(88); end; 风过不折→百炼成尧 QQ: 7315910 |
|||||
| 作者： |
|
2004/3/24 13:45:28 | ||||
| 6楼： | 改成这个 if ((strtoint(trim(edit1.text)) mod 2) <>0) then begin showmessage('只能输入偶数'); abort; end; ---------------------------------------------- 巧克力PIKA |
|||||
| 作者： |
|
2004/3/24 13:47:32 | ||||
| 7楼： | 楼主才入门，所以要多注意一下出错的错误信息，3楼的信息是你的“THEN”出错，你看一下，楼上的括号是如何括起来表达式的，括号解决后还有一个错误就是showmessag出错，表示你的函数名字写错了或未定义之类，你是前者，少写了个字母，注意的是showmessage函数定义在Dialogs单元中，要在上面的uses中加入这个 ---------------------------------------------- 巧克力PIKA |
|||||
| 作者： |
|
2004/3/24 15:55:06 | ||||
| 8楼： | 应该是这样的，我帮你调试通过了，操作系统：window2000 语言：delphi6.0企业版（其他不用我说吧） if (strtoint(trim(edit1.text)) mod 2) <>0 then begin showmessage('只能输入偶数'); end else ..... 注:你应该再进行一下文本框的输入检验。 ---------------------------------------------- - |
|||||
| 作者： |
|
2004/3/24 16:57:20 | ||||
| 9楼： | 斑竹去哪了？ ---------------------------------------------- - |
|||||
| 信息 |
| 登陆以后才能回复 |
