在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方法例子 
來源：http://www.cnpack.org/showdetail.php?id=699&lang=zh-cn