类型转换问题？？

Question

比如字符串 00001  为了使字符串不断递增,需要将字符串转为integer型再加1,但是转了之后相加再转回string型,前面的0000丢失.为使能达到要求,请问：该如何解决?

Answer 1

Format('%.05d', [i]);
inc(i);

Answer 2

integer转为string后用length判断长度(假如为n)，不够五位的在前面加5-n个'0'

Answer 3

var i:dword;
begin
  i:=strtoint('000001');
  showmessage(format('%.5d',[i+1]));
end;平时自己多动手试试....................  -_-!!

Answer 4

function RightStr(s: string; len: Integer): string;
begin
  Result := Copy(s, Length(s) - Len + 1, Len);
end;for i := 1 to 1000 do
  showmessage(RightStr('00000' + inttostr(i),5));