盒子论坛 v2.1

这里需要输入的是数字，为了防止用户输入字母，用了如下的语句，可一运行老提示edit1不是有效的integer值：
  try
    StrToInt(edit1.Text);
  except
    MessageBox(handle,'保险金额必须为大于0的整数！','数量错误',MB_OK or MB_ICONERROR);
    result:=true;
    exit;
  end;
  if StrToInt(edit1.Text)<0 then
    begin
      MessageBox(handle,'保险金额应大于等于0！','保险金额输入错误',MB_OK or MB_ICONERROR);
      result:=true;
      exit;
    end;
　　这个try不就是尝试吗？尝试为什么还报错呢？哪位高手来指点一下。
　　或者说还有别的法子吗？我想让这个输入框只能输入数字，拜托了~~~~~
----------------------------------------------
-

作者：

bjdribllec ( )	★☆☆☆☆	-
	盒子活跃会员

2004/3/9 17:57:43

1楼：

OnKeyPress事件

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in ['0'..'9']) then Key:=#0
end;

----------------------------------------------
-

作者：

heynickal ( )	★☆☆☆☆	-
	普通会员

2004/3/9 18:23:10

2楼：

好好，非常感谢
：）
----------------------------------------------
-

作者：

easykey (悠游)	★☆☆☆☆	-
	盒子活跃会员

2004/3/9 18:25:51

3楼：

补充一点，
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in ['0'..'9'，#8]) then Key:=#0
end;
回格键也要考虑进去。
----------------------------------------------

男儿贵展平生志，为国输忠合天地。甲穿虽则失黄金，剑缺犹能生紫气。塞草萋萋兵士苦，胡虏如今勿胡虏。封侯十万始无心，玉关生入君看取。

敬请光临学海Delphi站
http://delphi.studysea.net
学海无涯，让我们共同成长！

作者：

heynickal ( )	★☆☆☆☆	-
	普通会员

2004/3/9 18:29:56

3楼：

现在不能输入退格键了啊~~~~~~~~~
我想改成
　　if not (Key in ['0'..'9',****]) then Key:=#0

这个***代表退格键值，可这值是多少啊~~~~
----------------------------------------------
-

作者：

heynickal ( )	★☆☆☆☆	-
	普通会员

2004/3/9 18:31:31

4楼：

easykey真是太感谢你了：）
你刚发我也发的：）））

当然，还要感谢bjdribllec啊，大家真好：）

----------------------------------------------
-

作者：

easykey (悠游)	★☆☆☆☆	-
	盒子活跃会员

2004/3/9 18:48:28

5楼：

不用客气。
----------------------------------------------

作者：

zhangrongxin (sunny)	★☆☆☆☆	-
	盒子活跃会员

2004/3/9 19:19:43

6楼：

#13
----------------------------------------------
-

信息

登陆以后才能回复