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;