盒子论坛 v2.1

在Edit的Exit事件中加入如下代码：
var
   i: Extendend;
begin
   try
       i := StrToFloat(Edit1.Text);
       showMessage('输入的是数字');
   except
       showMessage('输入的是字符');
   end;
end;

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

作者：

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

2003/4/21 16:51:29

2楼：

在KeyPress事件中
begin
if Not (Key In ['0'..'9',#13])(还有一个退格键我忘了) then begin
Key:=#0;
Exit;
end;
end;
----------------------------------------------
-

作者：

bbhorse (xinhua2008)	★☆☆☆☆	-
	盒子活跃会员

2003/4/21 23:33:52

3楼：

楼上的方法是只能输入数字和回车
----------------------------------------------
愿和所有喜欢DELPHI的人做朋友！

作者：

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

2003/4/22 8:09:29

4楼：

在EDIT1的EXIT事件中写
var
i:single;
code:integer;
begin
  val(edit1.text,i,code);
  if code<>0 then
   //作不是数字处理
  else
   //是数字
end;
----------------------------------------------
-

作者：

gxwzhjc (小黄)	★☆☆☆☆	-
	盒子活跃会员

2003/4/22 11:48:58

5楼：

谢谢各位高手，问题终于解决了。
----------------------------------------------
-

信息

登陆以后才能回复