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

浏览数：48 / 时间：2015年06月10日

在实现函数时，如果中间的步骤出错，需要释放资源并退出函数，这些工作很繁杂，容易出错。 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)();