Delphi 为数字补充前缀0

本文整理自网络，侵删。

 
标准的Format函数可以做同样的事情！
Format（'％。10d'，[15]）将返回'0000000015'

或者：
function AddLeadingZeros(const Source: string; Len: Integer): string;
var
  i: Integer;
begin
  Result := Source;
  for i := 1 to (Len-Length(Source)) do
    Result := '0' + Result;
end;
 

相关阅读 >>

Delphi 判断是否是系统管理员身份

Delphi 批量给每个字符加括号

Delphi 数字转excel字母列序号

Delphi 随鼠标移动的十字线的快速画法

Delphi httpencode编码

Delphi 类和对象

Delphi image 图像清空

Delphi 封装frame到dll文件

Delphi实现dbgrid全选和反选功能

Delphi 中的split 函数

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 为数字补充前缀0