如何将前导零添加到数字（delphi格式）(add leading zeroes to a number (delphi format))
不同的应用需要特定的值以符合结构范例。例如，社会保险号码总是九位数。有些报告要求以固定数量的字符显示数字。例如，序列号通常以1开头，递增而不结束，因此它们以前导零显示，以呈现视觉吸引力。
作为一名Delphi程序员，您添加带前导零的数字的方法取决于该值的特定用例。您可以简单地选择填充显示值，也可以将数字转换为字符串以存储在数据库中。
显示填充方法
使用简单的函数更改数字的显示方式。通过提供长度值（最终输出的总长度）和要填充的数字，使用format进行转换：
str := Format('%.*d,[length, number])要用两个前导零填充数字7，请将这些值插入代码：
str := Format('%.*d,[3, 7]);结果是007，返回值为字符串。
转换为字符串方法
在脚本中需要前导零（或任何其他字符）时，可以随时使用填充函数附加前导零。要转换已为整数的值，请使用：
function LeftPad(value:integer; length:integer=8; pad:char='0'): string; overload; begin result := RightStr(StringOfChar(pad,length) + IntToStr(value), length ); end;如果要转换的值已经是字符串，请使用：
function LeftPad(value: string; length:integer=8; pad:char='0'): string; overload; begin result := RightStr(StringOfChar(pad,length) + value, length ); end;这种方法适用于Delphi6及更高版本。这两个代码块都默认为0填充字符，长度为7个返回字符；可以修改这些值以满足您的需要。
调用LeftPad时，它会根据指定的范例返回值。例如，如果将整数值设置为1234，则调用LeftPad：
i:=1234；r:=左垫（i）；
将返回一个字符串值0001234。
- 发表于 2021-10-07 21:04
- 阅读 ( 220 )
- 分类：编程
你可能感兴趣的文章
如何在google表格中的数字前输入零
...本”。 现在，您在单元格中输入的任何内容都将显示您如何以纯文本形式键入它。 应用自定义数字格式 另一种方法是将自定义数字格式应用于可能输入单元格的任何内容。如果你有一个五位数长的数字，比如邮政编码，你可...
如何在linux终端中显示日期和时间（并在bash脚本中使用）
...多数Linux发行版甚至macOS中的默认shell。本教程向您展示了如何在命令行上掌握日期，以及如何在shell脚本中使用它来完成不仅仅是打印时间的工作。 运行date命令查看此信息。它为您的时区打印当前日期和时间： date 默认格式看...
如何强制microsoft excel显示前导零
默认情况下，Excel不会在任何非十进制数字数据集中显示前导零。但是如果你需要显示前导零-通常是因为你的工作中有一些奇怪的编号系统，很容易保持零的位置。 在任何单个Excel文档中，选择一个或多个单元格（或整列或整...
如何在Windows7任务栏中自定义日期格式
您是否希望Windows在Windows 7任务栏中显示完整日期而不是短日期格式？使用这个简单的教程，您将有窗口显示您希望它的确切日期。 要开始，请单击屏幕右下角，系统托盘中显示时间和日期。 当弹出对话框打开时，单击“更改...
用delphi创建、解析和操作xml文档
...XML数据之类的操作。 作为一名Delphi程序员，您应该知道如何使用XML文档。 xml与delphi 有关将Delphi与XML配对的更多信息，请阅读： 了解如何将TTreeView组件项存储到XML（保留树节点的文本和其他属性），以及如何从XML文件填充...
如何将媒体文件嵌入delphi可执行文件（rc/.res）(embed media files into a delphi executable (rc/.res))
...可以防止其他人操纵这些加载项文件。 本文将向您展示如何在Delphi可执行文件中嵌入（和使用）声音文件、视频剪辑、动画以及更一般的任何类型的二进制文件。对于最通用的用途，您将看到如何将MP3文件放入Delphi exe中。 ...
将项目添加到tpopup delphi菜单
... property Value : string read fValue write fValue; end; 下面介绍如何将此“扩展”菜单项添加到PoupMenu1： var menuItemEx : TMenuItemExtended; begin menuItemEx := TMenuItemExtended.Create(PopupMenu1) ; menuItemEx.Caption := 'Extended added at ' + TimeToStr...
理解delphi项目和单元源文件
...供了在软件后台出现的许多功能。 例如，应用程序处理如何从程序菜单调用帮助文件。 DPROJ是Delphi项目文件的另一种文件格式，但它以XML格式存储项目设置。 pas文件 PAS文件格式保留用于Delphi单元源文件。您可以通过项目...
程序退出时delphi中的内存泄漏通知
...ksOnShutdown设置为TRUE后，在主窗体的OnCreate事件处理程序中添加以下代码。 var sl : TStringList; begin sl := TStringList.Create; sl.Add('Memory leak!') ; end; 在调试模式下运行应用程序，退出应用程序-您应该会看到内存泄漏对话框...
如何将复选框和单选按钮添加到ttreeview(add check boxes and radio buttons to a ttreeview)
...ed节点），最后将节点切换为“cRadioChecked”。 请注意，如何忽略任何已选中的单选按钮。显然，这是因为已选中的单选按钮将切换为未选中，使节点处于未定义状态。几乎不是你大多数时候想要的。 下面是如何使代码更加专...
0 篇文章
