我现在是用strtoint和try来检测文本框里的内容是否是数字，不知道还有其他好方法？

Question

try
    strtoint(edit1.Text)
except
    on EConvertError do
    begin
        showmessage('请输入数字！');
        exit;
    end;
end;
还有其他检测是否是数字的好办法吗？

Answer 1

if not (key in['0'..'9',',',#8]) then key:=#0;限制输入

Answer 2

if not (Key in ['0'..'9', #8,#9,#13]) then Key := #0;

Answer 3

for i:=1 to length(edit1.text) do
begin
if not (edit1.text[i] in  ['0'..'9']) then
  begin 
      showmessage('请输入数字！');
      exit;
  end;
end;

Answer 4

用MASKEDIT掩码编辑框更适合些，不需要写代码，只需要定制你需要的掩码即可。