怎么样判断edit1.text全是数字，而没有字母或其它符号？？急 用！！！

Question

我想通过edit1.text来添加表中的ID值 ，为了保证添入的全是数字，想知道这个限制语句怎么写呀？？？举个例子先，多谢各位大侠们！！

Answer 1

在edit的keyascii中写代码如下：
if not (key in ['0'..'9',#13,#8]) then
begin
   key=#0;
end;

Answer 2

还可间接判断：
    try
        StrToFloat(edit1.text)；
    except
    .....
    end；

Answer 3

也可以用MASKEDIT来限制只能输入数字

Answer 4

前面有的是类似问题，搜一下就是了，如果能用maskedit就别用edit了，麻烦

Answer 5

你们说的我都试了，不对呀，希望你们能举个全面一点的例子，我就是想把限制条件全加在button上，并且直接在button上完成添加。。？？？

Answer 6

你的按钮可以输入数字吗，怎么做的，分享一下。。
在Edit1的KeyPress事件中写
if not (key in ['0'..'9']) then
  key :=#0;

Answer 7

如果你想在BUTTON1里面加的话就这样写：
  for i:=1 to length(edit1.text) do begin
    if not (edit1.text[i] in ['0'..'9']) then begin
      showmessage('error');
    end
    else
      showmessage('OK');
      //执行代码
  end;

Answer 8

方法上面的都不错，
但有一点有提醒一下：如果是实数的话，edit1里是可以输入字符“e”的。

Answer 9

maskedit 设置它的editmask 属性设置为!0000000这样就只能输入数字了。

Answer 10

字符串转换成整型 怎么写代码，呀，比如我用 query1.insertrecord([edit1.text,nil]),中，我想把edit1.text转换成整 型 ，怎么写呀，并且得能添入表中，

Answer 11

strtoint
兄弟你的20分问了n个问题哦。

Answer 12

try
  query1.insertrecord([strtoint(trim(edit1.text)),nil]);
except
  query1.insertrecord([0,nil]);
end;

Answer 13

edit1.keypress
if not(key in ['0'..'9',#8]) then
begin
key:=#0;
end;

Answer 14

if not trystrtoint() then ...