[原创]Delphi 字符串函数（字符串判断 TryStrToFloat 、TryStrToInt、TryStrToInt64、TryStrToBool、TryStrToCurr、TryStrToDate、TryStrToTime、TryStrToDateTime）

引用单元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;