Delphi 为某些字段数字补充前缀0

我们在开发的时候遇到有些字段默认设置为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;