如何用Format()/FormatFloat限制货币总位数适配80mm打印机？

当然可以通过Format或者FormatFloat实现你要的需求，核心是根据整数部分的长度动态调整小数位数，确保整个数值（不含货币符号）的显示长度控制在3位以内。我来给你具体拆解：

问题分析 #

你之前尝试的Format('%s%*f', [CurrencyString, 6 - Length(CurrencyString), Ratio])之所以达不到效果，是因为%*f里的第二个参数是数值的最小总宽度，而不是小数位数。而且默认小数位数是2，所以才会出现只保留2位小数的情况。我们需要的是根据整数部分长度来动态设置小数位数，而不是总宽度。

具体实现代码 #

这里提供两种实现方式，你可以根据自己的需求选择：

方式一：用Format结合条件判断

function FormatCurrencyFor80MM(const Value: Currency; const CurrencyStr: string): string;
var
  IntPart: Integer;
  IntLength: Integer;
begin
  IntPart := Trunc(Value); // 获取整数部分
  IntLength := Length(IntToStr(IntPart)); // 计算整数部分的位数

  // 根据整数位数决定小数保留规则
  case IntLength of
    1: Result := Format('%s%.1f', [CurrencyStr, Value]); // 1位整数+1位小数，总长度3（如2.345→2.3）
    2, 3: Result := Format('%s%.0f', [CurrencyStr, Value]); // 2/3位整数，不保留小数（如50.345→50，123.45→123）
    else
      // 处理整数超过3位的特殊情况（比如1234，可根据需求调整，这里默认取整）
      Result := Format('%s%.0f', [CurrencyStr, Value]);
  end;
end;

方式二：用FormatFloat动态生成格式字符串

function FormatCurrencyFor80MM(const Value: Currency; const CurrencyStr: string): string;
var
  FormatPattern: string;
  IntLength: Integer;
begin
  IntLength := Length(IntToStr(Trunc(Value)));
  
  // 生成对应的格式字符串
  if IntLength <= 1 then
    FormatPattern := '%.1f' // 保留1位小数
  else
    FormatPattern := '%.0f'; // 不保留小数

  Result := Format('%s%s', [CurrencyStr, FormatFloat(FormatPattern, Value)]);
end;

效果验证 #

• 输入2.345，整数部分1位 → 输出[货币符号]2.3（总数值长度3）
• 输入50.345，整数部分2位 → 输出[货币符号]50（总数值长度2）
• 输入123.67，整数部分3位 → 输出[货币符号]123（总数值长度3）

这样就能完美适配80mm打印机的宽度限制，把货币数值压缩到3位以内显示啦。

内容的提问来源于stack exchange，提问作者Anton Duzenko