try语句还有一个功能,就是出错显示自己的提示信息。
比如graphics.pas procedure TGraphic.LoadFromFile(const Filename: string); var Stream: TStream; begin Stream := TFileStream.Create(Filename, fmOpenRead or fmShareDenyWrite); try LoadFromStream(Stream); finally Stream.Free; end; end;
828
社区成员
53,611
社区内容
加载中
试试用AI创作助手写篇文章吧