怎么测试EDIT里的值是不是整数或小数呢？HELP

Question

我有一个EDIT1，我想判断一下，如果EDIT1里是整数或小数，就把它传送名为TEMP的Float变量，如果不是则SHOWMESSAGE('dddd');我只知道判断整数就VAL，但小数就不行了。VAL（）的信息码不是非常准，如果为0说明是整数，如333.33 或333,33都为4，这样就会出错了，而且它也不可以把值传给Float变量。总不能让我去一个一个字符测有没有除0－9外，而且只有一个小数点吧？！！这样太累了。大家想想好办法吧。多谢！我不想用maskedit！！！

Answer 1

try
  strtofloat(trim(edit1.text));
except
  showmessage('dddd');
end;

Answer 2

测试过的代码 绝对可用
function TdatPSIS.ValidateFloatStr(const S: String): Boolean;
var
Res: Extended;
  ErrNo: Integer;
begin
  Val(S, Res, ErrNo);
Result := ErrNo = 0;
end;

Answer 3

onexit里
try
   strtofloat(edit1.text)
except
end;