帮忙查错，谢谢

Question

请问：
下面代码有问题吗？
为什么我输入比如：'2003-01-32'就完蛋了  Try
    PlanForm.MonthCalendar.Date:=StrToDate(CBYear.Text+'-'+CBMonth.Text+'-'+CBDay.Text);
  Except
    on E: EConvertError do ShowMessage('It''s not a volid date');
  end;

Answer 1

Try
    StrToDate(CBYear.Text+'-'+CBMonth.Text+'-'+CBDay.Text);
    PlanForm.MonthCalendar.Date:=StrToDate(CBYear.Text+'-'+CBMonth.Text+'-'+CBDay.Text);
  Except
    on E: EConvertError do ShowMessage('It''s not a volid date');
  end;

Answer 2

'2003-01-32'是非法日期，当然会报错了(单独运行时不会)。
如果你是在调试时不想弹出错误信息，就：
Tools->Debug Options...->Language Exceptions->Stop on Selphi Exceptions不打勾。

Answer 3

楼上的几位大哥
zxkid() 你这样做也不行啊
sysu(死树) 单独运行时也有错
beata88(学习，学习，再学习！) 同上怎么办？