只想让TEdit输入数字，并赋值给Integer变量，怎么用？它的Text属性好像不能用了。！

Question

var ii: Integer;try
  ii := StrToInt(Edit1.Text);
except
  SHowMessage('输入的不是数字');
end;

Answer 1

在edit的OnKeyPress事件中添加代码：
begin
  if not( key in ['0'..'9',#27,#13,#8])then
  key:=#0;
end;

Answer 2

在keypress中写
  if not (key in ['0'..'9','.']) then key:=#0;
这样只能输入数字，
然后 用StrToInt()转化一下就ok!

Answer 3

http://delphi.mychangshu.com/dispdoc.asp?id=635
去下载吧

Answer 4

好像把maskEdit的Mask的属性改成9999（意为四个数字好像就行了嘛）

Answer 5

maskedit 就行了，何必这么多

Answer 6

var 
  tmp_str:string;
begin
  ...
  tmp_str:=trim(edit1.text);
  ...
这样就连文字也可输入了

Answer 7

var ii: Integer;
   V:Double;
   Code:Integer;
begin
  Val(Edit1.Text,i,Code);
  if Code = 0  then
    ii:=Integer(i);
  else
    raise exception.create('输入的不是数字');
end;

Answer 8

editonkeypressvar
i:integer;begin
  if not( key in ['0'..'9',#27,#13,#8]) then
  key:=#0;
end;
i:=strtoint(key);