delphi7 怎么判断输入的字符串是一个实数（包括指数和小数），请求高手帮忙

delphi7 如何判断输入的字符串是一个实数（包括指数和小数），请求高手帮忙
内容如题...
[最优解释]
可以利用类型转换函数，-1代表一个不可能出现的值
Result := StrToFloatDef(XXX, -1) <> -1;
[其他解释]
function   StrToFloat(const   S:   string):   Extended;   
    
Description:     
  Use   StrToFloat   to   convert   astring,   S,   to   a   floating-point   value.   S   must   consist   of   an   optional   sign   (+   or   -),   a   string   of   digits   with   an   optional   decimal   point,   and   an   optional   mantissa.   The   mantissa   consists   of   'E'   or   'e'   followed   by   an   optional   sign   (+   or   -)   and   a   whole   number.   Leading   and   trailing   blanks   are   ignored.      
  The   DecimalSeparator   global   variable   defines   the   character   that   must   be   used   as   a   decimal   point.   Thousand   separators   and   currency   symbols   are   not   allowed   in   the   string.   If   S   doesn't   contain   a   valid   value,   StrToFloat   raises   an   EConvertError   exception.
//if there is a exception, the string isn't a float or double
[其他解释]
typeof()
[其他解释]
顶下，不懂，呵呵！
[其他解释]

try
  strtofloat(str);
except
  begin
  showmessage('输入数据不是数字');
  exit;
  end;
end;{str 是你想检验的字符串,能成功就成功了,不能成功的话,会提示并退出当前函数块}
注意:把tools->debuger options->integrated debugging 前面的对钩去掉
[其他解释]