新手问题：这个怎么实现？

Question

我想edit里的内容比如：000002,加1,变为000003,应该怎么实现？在线求救。。
------------------------------------
《CSDN论坛新助手 CSDN's forum Explorer》，支持最新改版论坛，回复、浏览“方便”，“快捷”！
下载地址：http://www.seeyou.com.cn/CoolSlob/CSDNExplorer.exe

Answer 1

var
i:integer ;
begin
edit1.text:=inttostr(strtoint(edit1.text)+1);
for i:=1 to 6-length(inttostr(strtoint(edit1.text)+1)) do
begin
  edit1.text:='0'+edit1.text
end;

Answer 2

你的EDIT中内容的位数固定吗？一般第一位不要为0，若不为0，转成整型再加1即可，若为0，可人为在其内容前面增加一位1（或别的），转成整型再加1，然后回复字符串型，去掉第一位即可

Answer 3

//Delphi7中实现procedure TForm1.Button1Click(Sender: TObject);
var
  s:string;
begin
  s := edit1.Text;
  s[length(s)] := '3';//改成你想要的结尾
  edit1.Text := s;
end;

Answer 4

var
 i : integer;
 s : string;
begin
  s := IntToStr(StrToInt(Edit1.Text) + 1);
  While Length(s) < 6 do
    Edit1.Text ;= '0' + s;
end;