字符串函数大全(41) fvExtended, PChar(Edit2.Text)); Edit3.Text := Copy(VBuffer, 1, SpinEdit1.Value); end; ///////End FloatToTextFmt ━━━━━━━━━━━━━━━━━━━━━ 首部 function StrToFloat(const S: string): Extended; $[SysUtils.pas 功能 返回字符串S转换成浮点数 说明 字符串非浮点数表达时将引起异常 参考 function SysUtils.TextToFloat 例子 var E: Extended; begin E := StrToFloat(Edit1.Text); end; ━━━━━━━━━━━━━━━━━━━━━ 首部 function StrToFloatDef(const S: string; const Default: Extended): Extended; $[SysUtils.pas 功能 返回字符串S转换成浮点数 说明 字符串非浮点数表达时则返回默认值Default 参考 function SysUtils.TextToFloat 例子 var E: Extended; begin E := StrToFloatDef(Edit1.Text, 0); end; ━━━━━━━━━━━━━━━━━━━━━ 首部 function TryStrToFloat(const S: string; out Value: Extended): Boolean; overload; $[SysUtils.pas 首部 function TryStrToFloat(const S: string; out Value: Single): Boolean; overload; $[SysUtils.pas 首部 function TryStrToFloat(const S: string; out Value: Double): Boolean; overload; $[SysUtils.pas 功能 返回字符串S转换成浮点数Value是否成功 说明 字符串非浮点数表达时返回False并且Value将输出为不确定的值 参考 function SysUtils.TextToFloat
