如何格式化数字和 – 登录Delphi

发布时间：2020-12-15 09:40:25 所属栏目：大数据来源：网络整理

导读：使用Delphi,有没有办法在整数上使用Format函数时强制执行符号输出？对于正数,应使用”(加号)前缀,对于负数a’ – ‘(减号)前缀.在我的情况下,零的处理并不重要(可以有符号前缀或无). 我想避免为每种格式和if-then-else解决方案使用格式辅助函数. 解决方法与

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

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

解决方法

与 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',I]);  // Output: -100

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

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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!