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 memo 控件光标定位

Delphi之format函数

Delphi 系统服务和普通forms程序共存一体的实现

Delphi 如何使用findfirst搜索不同的文件类型？

Delphi 搭配hotkeyedit控件来解决问题

Delphi实现文件的拖放功能

Delphi判断一个字符是否为汉字的最佳方法

Delphi 判断进程名是否存在，如果存在则结束进程

Delphi 安卓app自动升级

Delphi给access创建数据表

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

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