一个有关"IntToStr 将整型数转换为字符串"的问题

Question

IntToStr 将整型数转换为字符串
我有一个两位数0-99,我想用将它转换成字符串,
如果是小于10的就自动在前面加上一个0,怎么做啊?
例如:
0  -> "00"
5  -> "05"
63 -> "63"
99 -> "99"
这个问题应该说不难吧,但是我不会,散20分请求
大家支援一下

Answer 1

，好像有format之类的函数，但自己也可做到：aStr:string;
 
aStr:=IntToStr(myValue);
if myValue<10
then aStr:='0'+aStr;

Answer 2

var I : integer;
    s : string; if length(i) = 1 then
  s := '0' + IntToStr(i)
else 
  s := IntToStr(i);

Answer 3

用format函数不行吗？要不写一段程序也很简单呀，你是写程序的吧！

Answer 4

function myfunc(i:integer):string;
var j:integer;
begin
  Result:=Copy(IntToStr(i+100),2,2);
end;

Answer 5

var s: string;
begin
 s := Format('%0.2d', [1]);
 showmessage(s);
end;

Answer 6

function numchange(i:integer):string;
var b:string;
begin
  for i:=1 to 99 do
  begin
    if i<10 then
      b:='0'+intostr(i)
    else
      b:=inttostr(i);
    return b;
  end;
end;
自己写的函数试试，应该可以。

Answer 7

也可以这样试试~~先将它转换为字符型~~
然后在其前面加上'00'~`
这样可以确保是两位数~~
再次是取加上'00'之后的字符串后两位~~例如:数字5->字符串'5'->加上'00'之后字符串'005'->取后两位变成字符串'05'

Answer 8

laiguorong(Win Lai) 真有创意。我是这样做的：  tempstr:=inttostr(tempi);
  
  for i:=length(tempstr)+1 to 2 do
        tempstr:='0'+tempstr;

Answer 9

to laiguorong(Win Lai) :只需要加一个'0',因为至少已经有一个'0'了。

Answer 10

rockswj(石头) 的方法就對了

Answer 11

Function AddZero( str : string ; Tlong: integer):string;
begin
while length(str) < Tlong do
  begin
   str := '0' + str;
  end;
  result := str;
end;
//前导加零，Tlong : 为形成之后字符串的总长度

Answer 12

Var 
tmp_str : string;
tmp_int : Integer;
begin
  tmp_str := Addzero(Inttostr(tmp_int),2);
end;

Answer 13

aiirii(ari-爱的眼睛) 的方法是最好的拉。系统有这样的函数，干吗不用呀？
var s: string;
begin
 s := Format('%0.2d', [1]);
 showmessage(s);
end;

Answer 14

var I : integer;
    s : string; if length(i) = 1 then
  s := '0' + IntToStr(i)
else 
  s := IntToStr(i);
这个是对的，
aiirii(ari-爱的眼睛) 的不对！！
至少没有写清楚！！！

Answer 15

case i of
1,2,3,4,5,6,7,8,9:str:='0'+inttostr(i);
else str:=inttostr(i);
end;

Answer 16

如果写全应当是
var I : Integer;
    s : string; 
begin
  I:=XXXX;
  s := Format('%0.2d', [I]);
  showmessage(s);
end;