问个关于数字显示的问题。

Question

如何让显示的数字变成双位的或三位的？比如让1显示为01.

Answer 1

var 
  A: String;
begin
  A := '1';
  edit1.text  := StringofChar('0',2-length(A))+A;
end;

Answer 2

var 
  A: String; 
  vLen : integer;
begin 
  A := '1'; 
  vLen := 3 ; // 想要的長度，2位或3位，
  edit1.text  := StringofChar('0',vlen -length(A))+A; 
end;

Answer 3

Format('%.5d',[数字])
'%.5d'中的5就是要显示的长度

Answer 4

procedure TForm1.Button1Click(Sender: TObject);
begin
  showmessage(formatfloat('0#',1)+'  '+formatfloat('0##',1));
end;