在delphi中使用go语言的defer方法

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

[color=#000080][b]program[/b][/color] [color=#000000]demo_defer[/color];

[i]{$APPTYPE CONSOLE}[/i]

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

[color=#000000]Readln[/color];
[color=#000080][b]end[/b][/color][color=#000000].[/color]


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

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

周兄，这个是不是应该发到源啊，还可以再到那里贴吗。。

把此dpr的例子也作为附件传上来吧。我发到网站的文档中心去。

好的:)

是不是D2010以上才支持？

你的这个coroutine单元只能是个演示,用在工程中还有不少问题.有待完善.你为什么不写完善了呢.又多不了多少代码.

确实只是个演示，我在后面的贴子中，甚至把那个单元改名成了concept，并且尽量让代码短小，这样别人就可以很快的弄懂它，可以自己根据需要修改，加入到自己的项目中

有一处情况建议加上，就是go语句的匿名线程不知道什么时候结束。 使用go语句应该意为着这个工作会比较耗时。 而很多时候需要检查事情是不是已经做完了。建议能过一个ID标识出这个匿名线程。并可在其它时候再次检索它。

我在以下情景中用到go语句，有个问题：timer事件中 去访问一个可能被其它地方正在独占的对象。 当发现对象被独占时就等待。但不能阻塞timer事件。否则timer事件会越积越多。我希望下次timer事件来了后，检索一下上一个事件中go()的操作是否已经完成了。完成了就重新执行。还在执行的就跳过。这种情况用go怎么优雅的解决。楼主可以考虑一下。

[quote]原帖由 [i]khzide[/i] 于 2011-1-19 23:02 发表
有一处情况建议加上，就是go语句的匿名线程不知道什么时候结束。 使用go语句应该意为着这个工作会比较耗时。 而很多时候需要检查事情是不是已经做完了。建议能过一个ID标识出这个匿名线程。并可在其它时候再次检索它。 ... [/quote]

你可以把go()改成函数，让它返回一个 TThread 对象，然后外部就可以通过它的 Finished 属性判断它是否已结束了。

另外我建议，外部代码，应该对线程的生存期做到无关化，就是不要让上层的业务逻辑和线程是否结束耦合起来，而是和线程的工作结果相关联，这也是我没让go()有返回值的原因。

[quote]原帖由 [i]khzide[/i] 于 2011-1-19 23:12 发表
我在以下情景中用到go语句，有个问题：timer事件中 去访问一个可能被其它地方正在独占的对象。 当发现对象被独占时就等待。但不能阻塞timer事件。否则timer事件会越积越多。我希望下次timer事件来了后，检索一下上一个事件 ... [/quote]

可能没有理解好题意，这样行吗？

[color=#000080][b]var[/b][/color] [color=#000000]done[/color][color=#000000]:[/color] [color=#000080][b]Boolean[/b][/color][color=#000000]=[/color][color=#000080][b]True[/b][/color];


[color=#000080][b]procedure[/b][/color] [color=#000000]TForm1[/color][color=#000000].[/color][color=#000000]Timer1Timer[/color]([color=#000000]Sender[/color][color=#000000]:[/color] [color=#000080][b]TObject[/b][/color]);
[color=#000080][b]begin[/b][/color]
[color=#000080][b]if[/b][/color] [color=#000000]done[/color] [color=#000080][b]then[/b][/color] [color=#000080][b]begin[/b][/color]
    [color=#000000]done[/color][color=#000000]:=[/color][color=#000080][b]False[/b][/color];
    [color=#000000]go[/color]([color=#000080][b]procedure[/b][/color]()
        [color=#000080][b]begin[/b][/color]
        [color=#000000]ftp[/color][color=#000000].[/color][color=#000000]download[/color]([color=#0000ff]'...'[/color]);
        [color=#000000]done[/color][color=#000000]:=[/color][color=#000080][b]True[/b][/color];
        [color=#000080][b]end[/b][/color]);
    [color=#000080][b]end[/b][/color];
[color=#000080][b]end[/b][/color];

如果只是单纯的在多线程中独占的使用对象，可以用system.tmonitor

我的本意是不想在外部保存这个thread.或其它变量，让go做更多的事情，比如说通过ID访问go函数得到以前创建的线程。但后来发现没有必要。就像现在这样就可以了。保存了它的简洁性。 功能越多，限制也就越多。 我有个问题，这个thread没有用freeonterminate属性，线程结束后。这个匿名线程类怎么析构阿。 我用的delphi2010里没有匿名线程。我只能用helper类扩展了它。手动实现创建一个线程返回。不知道楼主这个环境是什么样的。是不是也存在这个问题。还是说不理它。让它执行完毕后一直占着一块内存。谢谢

其实XE下的匿名线程在构造函数中是有freeonterminate:=true;的，如果你自己实现它的话，也要加上这句

找了好久，终于找到了，谢谢

学习了