rt
解决方案 »
- 把学习delphi两个月以来写的两个东西给跟我一样 的菜鸟们.呵呵.
- Delphi6.0装了FastReport 2.5后,提示小窗口没有了!!怎么办?!!!急!
- 在delphi中哪个函数类似SQL中的substring函数?(马上结单)
- 高深问题
- 怎么设置EhLib的PrintDBGridEh打印每一行纪录的行距?
- 利用ADO怎样向DBF库的date、datetime字段插入日期?SQL语句该怎么写。。
- 谁能给我推荐一本delphi开发数据库应用的好书
- cxgrid控件,好多高手都解决不了?
- 用delphi开发ActiveForm 时遇到点问题,向大家求教。
- 关于MDI 的开发
- 固定资产管理?
- 转让几本delphi经典书籍, 对于高手和初学者都非常适合
var
i :integer;
begin
i := strtointdef(edit1.text,-1);
if (i>100 or i< 0 ) then
begin
showmessage('输入值的范围为0~100');
edti1.setfocus;
end;
end;
if strtoint(edit.text)<0 or strtoint(edit.text)>100 then showmessage('值不在0~100之间');
except
showmessage('非有效整数');
end;
再比较数值的大小是不是符合范围