在Delphi XE中使用go语言的defer方法
wxy8 · · 3977 次点击 · · 开始浏览在实现函数时,如果中间的步骤出错,需要释放资源并退出函数,这些工作很繁杂,容易出错。 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方法例子
来源:http://www.cnpack.org/showdetail.php?id=699&lang=zh-cn
有疑问加站长微信联系(非本文作者)
入群交流(和以上内容无关):加入Go大咖交流群,或添加微信:liuxiaoyan-s 备注:入群;或加QQ群:692541889
关注微信- 请尽量让自己的回复能够对别人有帮助
- 支持 Markdown 格式, **粗体**、~~删除线~~、
`单行代码` - 支持 @ 本站用户;支持表情(输入 : 提示),见 Emoji cheat sheet
- 图片支持拖拽、截图粘贴等方式上传
收入到我管理的专栏 新建专栏
在实现函数时,如果中间的步骤出错,需要释放资源并退出函数,这些工作很繁杂,容易出错。 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方法例子
来源:http://www.cnpack.org/showdetail.php?id=699&lang=zh-cn