怎么判断edit输入的数据类型

Question

我想要判断edit.text的数据类型是否为数字型的  如果不是就不能操作
   请问要怎么判断？

Answer 1

//自定义的函数，isFloat
function isFloat(aStr):boolean;
begin
  try
    StrToFloat(aStr);
    result:=true;
  except
    result:=false;
  end;
end;if IsFloat(Edit1.Text) then
  ShowMessage(Edit1.Text+'是数字')
else
  ShowMessage(Edit1.Text+'不是数字');
-----------------------------------
http://www.kmok.cn/

Answer 2

1楼的是输入后才判断，还是可以输入的。
比较人性化的设计是在keypress中判断用户按下的按键，对输入进行限制。
这样就只能输入数字\符号\小数点。
用户感觉比较舒服。网上一大堆代码的。

Answer 3

在 Edit 的 KeyPress 事件中加入下列代码： 
if not((key in ['0'..'9',#8]) ) then 
begin 
showmessage ('不是数字'); 
key := #0; 
end; 

Answer 4

var   I, Code: Integer;
begin
   Val(Edit1.Text, I, Code);
    if Code <> 0 then
    Showmessage('不是整数')
    else
    Showmessage('是整数');end;

Answer 5

var
  A : Float; if tryStrToFloat(Edit1.text,A) then 
    ShowMessage('全是數字')
 else 
    ShowMessage('錄入數據不合法');