Question

DELPHI基础教程：异常处理与程序调试（一）[4]

Answer 1

　　 产生一个资源保护块

　　Delphi提供了一个保留字finally 用于实现资源的保护

　　{分配资源}

　　try

　　{资源使用情况}

　　finally

　　{释放资源}

　　end;

　　try…finally…end就形成了一个资源保护块 finally后面的语句是在任何情况下 不论程序是否发生异常 都会执行的

　　对于（ ）中的例子如下代码即可确保所分配内存资源的释放

　　var

　　APointer : Pointer ;

　　AInt ADiv : Integer;

　　begin

　　ADiv := ;

　　GetMem （ APointer ）

　　try

　　AInt := div ADiv ;

　　finally

　　FreeMem （ Apointer ）

　　end;

　　end;

　　下面的例子摘自（ ）节 是在文件拷贝中实现文件资源的保护

　　procedure CopyFile（const FileName DestName: TFileName）

　　var

　　CopyBuffer: Pointer;

　　TimeStamp BytesCopied: Longint;

　　Source Dest: Integer;

　　Destination: TFileName;

　　const

　　ChunkSize: Longint = ;

　　begin

　　Destination := ExpandFileName（DestName）

　　if HasAttr（Destination faDirectory） then

　　Destination := Destination + \ + ExtractFileName（FileName）

　　TimeStamp := FileAge（FileName）

　　GetMem（CopyBuffer ChunkSize）

　　try

　　Source := FileOpen（FileName fmShareDenyWrite）

　　if Source < then

　　raise EFOpenError Create（FmtLoadStr（SFOpenError [FileName]））

　　try

　　Dest := FileCreate（Destination）

　　if Dest < then

　　raise EFCreateError Create（FmtLoadStr（SFCreateError [Destination]））

　　try

　　repeat

　　BytesCopied := FileRead（Source CopyBuffer^ ChunkSize）

　　if BytesCopied > then

　　FileWrite（Dest CopyBuffer^ BytesCopied）

　　until BytesCopied < ChunkSize;

　　finally

　　FileClose（Dest）

　　end;

　　finally

　　FileClose（Source）

　　end;

　　finally

　　FreeMem（CopyBuffer ChunkSize）

　　end;

　　end;

　　程序的具体解释见 （ ）节

　　在异常保护的情况下 当异常发生时 系统会自动弹出一个消息框用于显示异常的消息 退出当前模块后异常类自动清除

　　 返回目录 DELPHI基础教程

       编辑推荐

       Java程序设计培训视频教程

       J EE高级框架实战培训视频教程

　　Visual C++音频/视频技术开发与实战

　　Oracle索引技术

　　ORACLE G数据库开发优化指南

　　Java程序性能优化 让你的Java程序更快 更稳定

　　C嵌入式编程设计模式

　　Android游戏开发实践指南

lishixinzhi/Article/program/Delphi/201311/25194