整数与字符串的转换

Question

var
  i: Integer;
  s: string;  s:='000'+IntToStr(i);

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
  S: string;
begin
  I := 8;
  s := Format('%5.4d', [I]);
  Caption := s;
end;

Answer 2

要是直接用函数的话：
str := Format("%4d",[i]);
也可以用循环：
str := inttostr(8);
for i:=1 to 4-length(str) do
  str := '0' + str;

Answer 3

Format函数我很少使用，请大家给出一个Format用法的中文解释和说明。

Answer 4

晕，刚才不小心点了将贴子提前，点错了。再来
Str := RightStr('0000000000000000000000000000' + IntToStr(i), 位数)