delphi 中如何使Currency类型值保留一位小数不要转成字符串

在Delphi中，可以使用FormatFloat函数将Currency类型的值格式化为保留一位小数的字符串。示例如下：

var
  currencyValue: Currency;
  formattedValue: string;
begin
  currencyValue := 123.4567;
  formattedValue := FormatFloat('0.0', currencyValue);
  ShowMessage(formattedValue); // 显示 123.5
end;

在上述示例中，FormatFloat函数的第一个参数是格式字符串，'0.0'表示保留一位小数。第二个参数是要格式化的Currency值。最终，formattedValue变量将包含保留一位小数的字符串值。