一个字符串，小于12位，不足12位补零，帮忙请进

Question

No.1
  Caption := Format('%.12', [StrToIntDef(str, 0)]);

Answer 1

No.1
  Caption := Format('%.12d', [StrToIntDef(str, 0)]);
//                       ~少个d

Answer 2

No.2
  Caption := Copy('000000000000', 1, 12 - Length(str)) + str;

Answer 3

Copy('000000000000', 1, 12 - Length(str)) + str;

Answer 4

function addl(n:integer;str:string):string;
var
i:integer;
begin
if n>0 then
begin
for i:=0 to n-1 do
begin
str:='0'+str;
end;
result:=str;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
l:integer;
begin
l:=length(edit1.text);
if l<12 then
begin
edit1.text:=addl(12-l,edit1.text);
end;
end;