寻找一个函数，在线等待

Question

Delphi 是否有这样的函数
整型2转换成字符型002
整型10转换成字符型010
整形111转换成字符型111
如果没
烦请大富翁的高手帮我写一下函数
就好能写成delphi中 Format()函数
传一个参数
就据整形转换成指定长度的字符型，长度不够前补零

Answer 1

好象不难呀，随便写一个吧//注范围只能在0到999呀，别情况你自已想吧
function FormatInt(i:integer):String;
begin
  Result:=IntToStr(i);
  case Length(Result) of
    1:Result:='00'+Result;
    2:Resutt:='0'+Result;
  end;  
end;

Answer 2

function tform1.getdata(i : integer;countnum : integer):string;
var model,s :string;
     q : integer;
begin
 s:='';
 for q:=1 to countnum-strlen(pchar(inttostr(i))) do
 s:=s+'0';
 model:=s+'%d';
s:= Format(model, [i]);
result:=s;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage(getdata(strtoint(edit1.text),5));
end;

Answer 3

Result := Format(Format('%%.%dd', [aWidth]), [aIntValue]);

Answer 4

看来各位......
delphi help about format strings:
"%" [index ":"] ["-"] [width] ["." prec] typeprocedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  s: string;
begin
  i := 3;
  s := format('%.3d', [i]);
  caption := s;
end;

Answer 5

uses StrUtils
...var s:string;
begin
    s:=rightstr('000' + inttostr(i),3); //取右边3位即可.
end;