引用单元SysUtils
TryStrToFloat 、TryStrToInt、TryStrToInt64、TryStrToBool、TryStrToCurr、TryStrToDate、TryStrToTime、TryStrToDateTime
将字符串转换成其中一种格式，转换成功返回true，否则false
例如：
TryStrToFloat函数 示例：
var
aa:Extended;
begin
if TryStrToFloat(‘12.3456‘,aa) then
ShowMessage(FloatToStr(aa)); //结果：12.3456
else
ShowMessage(‘转换异常‘)
end;
TryStrToInt函数 示例：
var
aa:Integer;
begin
if TryStrToInt(‘1234‘,aa) then
ShowMessage(IntToStr(aa)); //结果：1234
else
ShowMessage(‘转换异常‘)
end;
原文：https://www.cnblogs.com/guorongtao/p/11338843.html