CnPack 开源软件项目 - 在Delphi XE中使用go语言的defer方法
  网站首页 下载中心 每日构建 文档中心 公益基金 开发论坛 关于我们 致谢名单 English


 Google 搜索

内容: 
 最新下载包


 
CnWizards 1.1.5.946
[2018-11-01]

 
CnVCL 组件包 20181101
[2018-11-01]

 
CVSTracNT 多语言版 V2.0.1_20080601
[2008-06-02]

 
CVSTrac Linux 中文版 V1.2.1_20060112
[2006-01-12]
  最新开发版下载 RSS
  项目时间线 RSS RSS
 项目相关链接

CnPack GitHub 首页
GIT 使用说明
申请加入 CnPack
CnPack 成员名单
CnPack 邮件系统
 网站访问量

今日首页访问: 1091
今日页面流量: 3650
全部首页访问: 3439486
全部页面流量: 12804172
建站日期: 2003-09-01

在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方法例子 (已下载 1991 次)

本文已阅读 10949 次
来自: CnPack 开源软件项目

上一主题 | 返回上级下一主题

相关主题:
在Delphi XE中用coroutine的方式修改delphi自带的Threads例子
在Delphi XE中使用go语言的并发编程方法之Demo3
在Delphi XE中使用go语言的并发编程方法之Demo2
在Delphi XE中使用go语言的并发编程方法
Delphi动态事件深入分析
Delphi 2009 VCL 源码中一处可能导致死循环的 Bug
翻译:现有 Delphi 项目迁移到 Tiburon 中的注意事项
Delphi面向对象学习随笔九:后记
Delphi面向对象学习随笔八:物理封装
Delphi面向对象学习随笔七:COM


版权所有(C) 2001-2018 CnPack 开发组 网站编写:Zhou Jinyu