M milesmaqi Unregistered / Unconfirmed GUEST, unregistred user! 2002-05-04 #1 InputQuery('参数设置','请输入大小','参数') 默认情况下，参数是STRING ， 现在由于需要我只能是INTEGER； 不知道该如何限制。
完 完颜康 Unregistered / Unconfirmed GUEST, unregistred user! 2002-05-04 #2 ???????? 要是你申明成整形，带入字符的参数能通过编译？
P Pipi. Unregistered / Unconfirmed GUEST, unregistred user! 2002-05-04 #4 InputQuery是现成的东西，只能输入文字，不能做其他判断 你要限制只能输入数字，那么需要自己做一个form来输入， 或者返回之后判断是不是整数，不是整数的话，再次弹出InputQuery让他再次输入
InputQuery是现成的东西，只能输入文字，不能做其他判断 你要限制只能输入数字，那么需要自己做一个form来输入， 或者返回之后判断是不是整数，不是整数的话，再次弹出InputQuery让他再次输入
S silverwolf Unregistered / Unconfirmed GUEST, unregistred user! 2002-05-04 #5 StrToInt，看看会不会出异常，呵呵。这办法凑合着用。
B bluely Unregistered / Unconfirmed GUEST, unregistred user! 2002-05-05 #6 procedure TForm1.Button1Click(Sender: TObject); var s:string; InputValue:integer; begin s:='1'; if inputquery('1','1',s) then begin try InputValue:=strtoint(s); except showmessage('请输入数字'); exit; end; end; end;
procedure TForm1.Button1Click(Sender: TObject); var s:string; InputValue:integer; begin s:='1'; if inputquery('1','1',s) then begin try InputValue:=strtoint(s); except showmessage('请输入数字'); exit; end; end; end;
