Question

使用Delphi，有没有办法在整数上使用Format函数时强制执行符号输出？对于正数，应使用'+'（加号）前缀，对于负数a' - '（减号）前缀。在我的情况下，零的处理并不重要（可以有符号前缀或无符号）。

我想避免为每种格式和if-then-else解决方案使用格式辅助函数。

Answer 1

与David already commented类似，Format函数没有为此目的提供格式说明符。

如果你真的想要一个单线解决方案，那么我想你可以使用类似的东西：

uses
  Math;
const
  Signs: array[TValueSign] of String = ('', '', '+');
var
  I: Integer;
begin
  I := 100;
  Label1.Caption := Format('%s%d', [Signs[Sign(I)], I]);  // Output: +100
  I := -100;
  Label2.Caption := Format('%s%d', [Signs[Sign(I)], I]);  // Output: -100

但我更喜欢制作一个单独的（库）例程：

function FormatInt(Value: Integer): String;
begin
  if Value > 0 then
    Result := '+' + IntToStr(Value)
  else
    Result := IntToStr(Value);
end;

如何使用+和 - 格式化Delphi格式的数字

1 个答案: