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

Question

強制類型轉換不能再這兒用！procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.Text:=IntToStr(StrToInt(Edit1.Text)+1);
end;

Answer 1

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

Answer 2

icewind也对呀!为什么zork is right 

Answer 3

icewind也对呀!为什么zork is right 

Answer 4

icewind也对呀!为什么zork is right 

Answer 5

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

Answer 6

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