小妹?^_^?:捉虫：数据类型的错误！！！

Question

try
  YourIntVar:=StrToInt(Edit1.Text);
except
  //错误处理
end;  

Answer 1

if edit1.text = '' then i := 0 else 
try 
  i:=strtoint(edit1.text);
except
  出错处理
end ;
小妹的问题真多

Answer 2

如果只用两种可能，空和数值，
YouIntVar:=StrToIntDef(Edit1.Text,0);

Answer 3

procedure Taddpermit.edt_nameChange(Sender: TObject);
var
  S : String ;
begin
        if text = '' then exit ;
        s := text ;
        try
          strtoint(s );
        except
          delete(s,length(s),1);
          text := s ;
          SelStart := length(s) ;
        end ;
end ;
送你一段代码，禁止输入字母。只能输入数字
edit的Change事件中

Answer 4

if edit1.text = '' then i := 0 else 
try 
  i:=strtoint(edit1.text);
except
  出错处理
end ;

Answer 5

同意楼上的啊
if edit1.text='' then i:=0 
else
 try 
 i:=strtoint(edit1.text);
except
end;

Answer 6

我也给你一段代码，只能输入数字在onkeypress中啊
if key not (in['0'..'9']) then key:=chr(0);

Answer 7

lwk_hlj(阿凯)这种方法的确可以只能输入数字，但是，用户用粘贴板copy->paste就不行了！
对吧！

Answer 8

我也送一点
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
begin
   if not isnumeric(key) then key:=#0;
end;

Answer 9

kevin_gao(困了！累了！睡觉了！)　你的方法屏蔽了回车，退格用户
而且用粘贴板copy->paste就可以输字母了

Answer 10

To kuangning(郎之间,穷人):
不准用户这么变态的在数字输入框里乱搞，呵呵！ （玩笑）；是必须try一下；

Answer 11

var
i:longint; 
begin
if edit.text='' then edit.text:='0';
i:=strtoint(edit.text);
end; 

Answer 12

谢谢各位，熟人不必说，来者都有分！
enlightenment(阿明--进入准冬眠状态的超人)
sorry,人多分数计算错误，下次补上！
本来不应该给 tikkypeng(千两狂死郎)　谁让他嘴贫，略施惩罚
不过------还是给他2分^_^!