知识大全异常处理与程序调试（一）[4]

Posted 2022-07-21 资源

篇首语：山高流水长，志大精神旺。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全异常处理与程序调试（一）[4]相关的知识，希望对你有一定的参考价值。

DELPHI基础教程：异常处理与程序调试（一）[4] 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

　　 产生一个资源保护块

　　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;

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

　　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;

　　程序的具体解释见（）节

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

　　返回目录 DELPHI基础教程

编辑推荐

Java程序设计培训视频教程

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

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

　　Oracle索引技术

　　ORACLE G数据库开发优化指南

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

　　C嵌入式编程设计模式

　　Android游戏开发实践指南

cha138/Article/program/Delphi/201311/25194

知识大全 异常处理与程序调试（一）[4]

知识大全异常处理与程序调试（一）[4]