0,1,2格式如何转换为00,01,02

Question

如题
谢谢!

Answer 1

var
  i:integer;
begin
  for i := 0 to 9 do
   showmessage(formatfloat('00',i));
end;

Answer 2

var
a:string;
b:string;
c:integer;
begin
 a:=1;
 b:='0'+copy(a,1,1);
 c:=strtoint(b);//得出结果０１，依次类推０２，０３
end;

Answer 3

To greenpeople(绿人)
  你的方法不行，不是所要求的

Answer 4

GetRealStr(2,0);
GetRealStr(2,1);
GetRealStr(2,3);
..........0,1,2....都是string类型自己转换一下就行了

Answer 5

var
  i,j:Integer;
  s,s1,s2:string;
begin
  s:='0,1,2';
  j:=0;
  s2:='';
  for I:=1 to Length(s) do
  begin
    if s[I]=',' then
    begin
      if Length(s2)=1 then
        s2:='0'+s2;
      s1:=s1+s2+s[I];
      j:=0;
      s2:='';
    end
    else s2:=s2+s[I];
  end;
  if s2<>'' then
  begin
    if Length(s2)=1 then
      s2:='0'+s2;
    s1:=s1+s2;
  end;
  showmessage(s1);
end;

Answer 6

//参考如下代码
uses MaskUtils;procedure TForm1.Button1Click(Sender: TObject);
begin
  Caption := PadInputLiterals('##!,##!,##!', '0,1,2', '0');
end;

Answer 7

Format('%.4d', [2]);或者rightstr('00'+inttostr(i),2);

Answer 8

s:= inttostr(100+i);
delete(s, 1, 1);

Answer 9

s:array of string;
for i := 0 to 9 do
 s[i]:=  Format('%.2d',[i]);

Answer 10

uses StrUtils;
var
s:array of string;for i:=0 to MaxCount do
    s[i]:=AnsiReplaceStr(Format('%5d',[n]),' ','0');