delphi初学者的小问题，白送分，不可不看.....

[dpbug_cn]

下面的程序错在哪里？如何实现。

设计要求：初始状态下edit1.text为2000，点击button1一次，edit1中数字加1，变为2001

procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text:=string(integer(Edit1.Text)+1);
end;

[zork]

強制類型轉換不能再這兒用！

procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text:=IntToStr(StrToInt(Edit1.Text)+1);
end;

[askjames]

同意楼上

[icewind]

procedure TForm1.Button1Click(Sender: TObject);
begin
try
Edit1.Text:=IntToStr(StrToInt(Edit1.Text)+1);
except
showmessage('数据错误')
end;
end;

[freelzx]

同意zork(我是一条鱼……)

[tele]

zork is right

[lxas]

icewind也对呀!为什么zork is right

[lxas]

icewind也对呀!为什么zork is right

[lxas]

icewind也对呀!为什么zork is right

[vernal]

都正确！

[Java_SCU]

icewind的方法要好得多，可以处理例外

[helenasp]

我在这儿学到一个道理:无论怎样的问题，MSDN的有无数的热心好学的伙伴为你答疑,欢迎再次茨临!