Delphi - 以零为单位递增整数

Question

如何使用零 00000000 ， 00000001 ， 00000002 等来增加整数开始

var
  i:Integer;
begin
  i := 00000000;
  Inc(i);
  ShowMessage(IntToStr(i));

问题是 inc 程序会修剪左边的零。

输出：

1

不是00000001.

Answer 1

正如@Sir Rufo所写，这只是格式化的问题，可能你正在寻找SysUtils.Format

// SysUtils should be in uses;
...
const
  DesiredLen = 8;
var
  i:Integer;
begin
  i := 0;
  Inc(i);
  ShowMessage(SysUtils.Format('%.*d', [DesiredLen, i])) 

Answer 2

试试这个 - 在Format（） -

之后只有一步

表示i：= 1到NeedLeadingZeros     开始       if（Result [i]＆lt;＆gt;''）然后中断;       结果[i]：='0';     端;