Question

delphi 0 1 2 3.... 和00 01 02 03.....相互转换?

各位老师..比如像0 1 2 3...这些数,把他们前面要加个0,这个要看起来工整些,?
不用inttostr()和strtoint()转换后连接,有没有这么一个函数呀,各位老师?

Answer 1

数字前面补充前导 0，可以使用以下办法：

1、使用 Format 函数：

Format('%5.5d',[StrToInt(s)]);

2、编写代码实现：

  function AddZero(Num,Len:Integer):string;
  var i:Integer;Str:string;
  begin
    Str := IntToStr(Num);
    Result := Str;

    i := Length(Str);
    if i<Len then
      Result := DupeString('0',Len-i)+str;
  end;

procedure TForm1.btn2Click(Sender: TObject);
begin
  ShowMessage(AddZero(10,5));
end;

Answer 2

Format('%.2d',[9])

Answer 3

使用formatfloat函数
num.Text:=formatfloat('00',1)
1为变量
即:1,2,3,4...