procedure TForm1.Button1Click(Sender: TObject);
Var
Num: Integer;
Begin
Try
Num:=StrToInt(Edit1.Text);
Edit2.Text:=IntToStr(Num*Num);
Except
On EConvertError Do ShowMessage(Edit1.Text+'无法转成整数!');
End;
end;
delphi string类型转integer时出错的检测
Delphi异常处理与平方运算
最新推荐文章于 2023-04-11 21:55:30 发布
本文介绍了一个简单的Delphi程序实例,展示了如何通过Try...Except块进行异常处理,特别是针对字符串转换为整数时可能出现的错误。程序还实现了输入数字并计算其平方的功能。
3万+

被折叠的 条评论
为什么被折叠?



