简单问题，谢谢

Question

我想实现长度为6的字符串，如'000000',当把他strtoint后加任何数，又转换回先前'000000'这样的格式，只是要求如果不够6位，那就补0，请问要怎样做，谢谢

Answer 1

var strTmp: String;
strTmp :='000000';
strTmp :='000000'+IntToStr(StrToInt(strTmp)+2);
strTmp :=copy(strTmp,Length(strTmp)-5,6);
//OK

Answer 2

var
  str：string;
  TempInt:integer;
begin
  TempInt:=strtoInt(str);
  str := '000000'+inttoStr(TempInt);
  str:=copy(str,length(str)-6,length(str))
end;

Answer 3

var
  i, len: integer;
  str: string;
begin
  i := 1;
  len := length(IntToStr(StrToInt(str)+i));
  str := copy('000000', 1, 6-len)+str;
end;

Answer 4

Format('%0.6d',[StrToInt('000000')+1])将返回‘000001’