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

Question

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

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

Answer 1

就像David已经评论过的那样,该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;