Delphi程序使用资源的释放

写出不造成资源分配崩溃的Delphi应用程序,关键是确保故障发生时也能释放资源,如文件、内存等。通过示例说明错误产生会使资源释放代码不执行,而使用try...finally资源保护模块,可保证资源释放代码总能执行,保障资源释放很重要。

摘要生成于 C知道 ,由 DeepSeek-R1 满血版支持, 前往体验 >

写出一个不会造成资源分配崩溃的Delphi应用程序的
关键是确保如果程序中分配了资源,即使当故障发生,程
序也应能释放占用的资源。

  文件、内存、WINDOWS资源和对象是一些必须时时加
以注意的需确保释放的资源。下面的事件控制代码例子中
先分配了内存,然后产生了一个错误,而造成它不再执行
释放内存的程序代码:

  ProcedureTForm1.ButtonlClick(Sender:Tobject
);

  Var

  Pointer1:Pointer;

  Integer1,Numzero:Intger;

  begin

  Numzero:Κ0;

  GetMem(Pointer1,1024);{分配1K的内存资源}


  Integer1:Κ5divNumzero;{此句产生一个除法错
误}

  FreeMem(Pointer1,1024);{这里此句将不被执
行}end;

  尽管大多数错误不会这样明显,但上例包含了重要的
一点:当错误产生后,程序执行跳出模块,其后的资源释
放程序代码不再被执行。为了确保上例中的FreeMem能够
释放被GetMem占用的内存资源,必须把代码放入一个资源
保护模块。

  这里给出一个曲型的资源保护模块的格式:

  {资源的分配}

  try

  {资源的使用}

  finally

  {资源的释放}

  end;

  上面的try...finally模块可以使程序总能执行fi
nally部分中的任何程序代码,即使有错误在保护模块
中产生。当try部分中的某一条代码执行时引起错误时,执
行将直接跳到finally部分;若执行中没有错误产生,则
程序按正常顺序执行。

  在下面的事件控制代码例子中先分配了内存,然后产
生了一个错误,但是仍然执行了释放内存的程序代码:

  ProcedureTForm1.Button1Click(Sender:Tobject
);

  Var

  Pointer1:Pointer;

  Integer1,Numzero:Integer;

  begin

  Numzero:Κ0;

  GetMem(Pointer1,1024);{分配1K的内存资源}


  try

  Integer1:Κ5divNumzero;{此句产生一个除法错
误}

  finally

  FreeMem(Pointer1,1024);{这里此句仍将被执
行}

  end;

  end;

  如何保障程序对所用资源的释放,在程序编制中是一
个非常重要的问题,必须在程序编制中加以实践和注意。


评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值