格式化字符串

Question

我想把一位字符串格式化为两位的例如：
1  =>  01
2  =>  02

Answer 1

这样简单：'0'+inttostr(1);
不太可能！

Answer 2

1. 
 var
  i:Integer;
  s:String;
 begin
  i:=IntToStr(s);
  ShowMessaeg(format('0.2d',[s]);
  //or
  showmessage(formatfloat('00',i)) 
 end;2.
function FillStr(str:string;Len:integer):string;
begin
 Setlength(result,Len-length(str));
 fillchar(pchar(result)^,length(result),'0');
 result:=result+str;end;
procedure TForm1.Button1Click(Sender: TObject);
begin
 showmessage(fillstr('1',3)); //fillstr('1',3)='001'
                              //fillstr('1',5)='00001'
end;