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 net.httpclient用最精简的代码获取网页数据

Delphi 使用钩子函数建立一个全局的鼠标钩子

Delphi 删除字符串中首个字符

Delphi遍历进程并获取进程路径

Delphi dpr文件误删怎么办

Delphi closefile 关闭文件

Delphi 去除 tstringlist 重复项

Delphi android 中 toast 的实现(老外写的unit)

Delphi 获取用户当前的windows临时文件夹

Delphi 让socket支持域名上线

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

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