在Delphi XE中使用go语言的defer方法

quasiceo 2013-01-12

展开全文

在Delphi XE中使用go语言的defer方法

CnPack 开源软件项目 2010-12-22 18:58:09

在Delphi XE中使用go语言的defer方法
作者：早安·空气

    在实现函数时，如果中间的步骤出错，需要释放资源并退出函数，这些工作很繁杂，容易出错。 go语言的作者对过去十年软件开发的经历感到失望，针对这个问题，他带来了defer方法，它能让不管在函数内的哪个地方exit，都确保你有机会清扫干净。Delphi XE中也可实现一个类似的方法。 program demo_defer;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  coroutineUnit; //还是用这个单元。。。还是在附件里

begin
TProc(procedure()  //这个函数演示将一个文件的内容，拷到另一个文件里
var
      f1, f2: Integer;  //两个文件指针，f1的内容要拷到f2里
begin
f1:=FileOpen('f1', fmOpenRead); //打开f1文件
defer(procedure()  //defer函数将参数函数保存起来，在它所属的函数退出时再调用。
      begin
      FileClose(f1);
      Writeln('f1被关闭');
      end);
f2:=FileOpen('f2', fmOpenWrite);  //再打开f2文件
if f2=-1 then begin
      Writeln('f2打开失败');
      Exit;  //果断退出，不必考虑f1的状态
end;
//copyContent(f1, f2); //开始copy（假设有这个拷贝函数存在）
FileClose(f2);
end)();

Readln;
end.

以往在处理这种情形时，需要判断f2打开是否失败，如果失败的话需要将f1关闭再退出，如果这个函数很复杂，有可能会忘记关闭，而用这个方法，确保不管你写多少个exit，关闭f1的代码都会被执行到。

实际输出的结果是  :
f2打开失败
f1被关闭

相关下载: 在Delphi XE中使用go语言的defer方法例子 (已下载 522 次)	本文已阅读 3433 次来自: CnPack 开源软件项目
上一主题 \| 返回上级 \| 下一主题