delphi 函数大全解决思路

delphi 函数大全
CurrToStr 函数的用法？ 

Delphi(Pascal) code

var  i: Int64;  c: Currency;begin  i := 12345;  ShowMessage(CurrToStr(PCurrency(@i)^)); //1.2345  {1.2345 是如何来的  求详解}

[解决办法]
Currency是货币类型,带4位小数
与实数类型转换时,要乘上10000或者除以10000
[解决办法]
货币型的精度是小数位后4位,所以想再精确一些的话用floattostr
[解决办法]
function TryStrToInt(const S: string; out Value: Integer): Boolean;

作用:转换字符串为整数,结果保存在输出变量Value中
返回值:全部字串成功转换为数字则True,否则为False

如:
var i:Integer;

TryStrToInt('12345',i); i值为12345 
TryStrToInt('123.45',i); i值为123 (小数点不是数字)
TryStrToInt('12V3.45',i); i值为12 (V不是数字)
TryStrToInt('c12V3.45',i); i值为0 (c不是数字)

要注意的是,第1位如果是$,X,0X会当16进制处理来转换,如:
Trystrtoint('$bv',i); i值为11 (16进制b转换成10进制是11)
[解决办法]
TryStrToInt 

strtointdef

查看更多 下一篇