求救

Question

m:=strtoint(inputbox('m','m=',' ')我想m的值再一定范围内 比如1－10 进入一个函数，
其余情况进入另外一个函数 怎么实现

Answer 1

if (m>=1) and (m<=10) then procedureA else ProcedureB

Answer 2

m为integer 输入字符就会错 怎么定义可以不出错呢？

Answer 3

这儿只能事后用strtoint来判断，输入的是否为数字。
如果要输入时判断，只能自己做个Form来使用

Answer 4

m:=strtointdef(inputbox('m','m=',' '),999);
case m of
 1://
 2://
 3://
 .
 . 
 .
999:showmessage('input error');
end;

Answer 5

m:=strtointdef(inputbox('m','m=',''),999);
case m of
 1:showmessage('1');
 2:showmessage('2');
 3:showmessage('3');999:showmessage('input error');
end;
end;end.要是这样好像输入4 就没有显示了 也不显示错。

Answer 6

楼主还真是可爱，呵呵。
先看一下Case的帮助和用法吧。

Answer 7

哈哈 初学，
   m3:=inputbox('month','month=','');
   if (m3>='1')and(m3<='12') then
   begin
    m1:=strtoint(m3);
我这样先判断 在转换过来 可以解决 不过好像是比较麻烦。

Answer 8

case m of
 1:showmessage('1');
 2:showmessage('2');
 3:showmessage('3');999:showmessage('input error');
end;
不是这么夸张吧......................

Answer 9

m:=strtointdef(inputbox('m','m=',''),999);
if (m>=1) and (m<=10) then procedureA else ProcedureB

Answer 10

to jiangshi99(僵尸先生99) 有没有那么夸张啊！！只是个例子嘛。。熟悉下 怎么用那些语句 嘿嘿
 
 to xxmmmx(踢踏)  谢谢兄台 看来要好好研究下delphi中的函数 。。