将Currency类型金额转为美分：现有代码是否安全？有无更佳方案？

1. 现有代码是否安全？ #

是安全的。

原因在于Delphi的Currency类型本质是64位定点小数类型，而非二进制浮点类型：它以0.0001美元为最小单位，内部用Int64存储对应的整数计数（比如1.23美元会被精确存储为12300）。

当执行dollars * 100时，即便编译器将运算转换为Extended浮点类型处理，由于你的场景输入无分以下的小数（如1.23这类精确到分的值），原始Currency值是精确的十进制小数，相乘后的结果（如123.0）也是精确可表示的，Trunc调用不会产生任何精度损失。

2. 更优的实现方式 #

既然Currency的底层是整数存储，直接操作其整数值可以完全避免浮点转换，效率更高且更直观：

function DollarsToCents(dollars: Currency): Integer;
begin
  // 将Currency转换为底层Int64整数（单位：0.0001美元），除以100得到美分数
  Result := Integer(Int64(dollars) div 100);
end;

这种方式跳过了浮点运算环节，完全依赖整数除法，从根源上消除了任何潜在的浮点精度风险，同时性能更优。

内容的提问来源于stack exchange，提问作者dan-gph