本地變量，一般是隨著函數執行結束，就不能再訪問；

而如果在匿名函數，訪問了外部函數的本地變量，本地變量的生命周期會被擴展

unit Unit1;interfaceusesWinapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;typeTIntSum = reference to procedure (x, y: Integer);TForm1 = class(TForm)btn1: TButton;procedure FormCreate(Sender: TObject);procedure btn1Click(Sender: TObject);privateFIntSum: TIntSum;procedure plusXandY(x, y: Integer);{ Private declarations }publicproperty IntSum: TIntSum read FIntSum write FIntSum;{ Public declarations }end;varForm1: TForm1;implementation{$R *.dfm}procedure TForm1.btn1Click(Sender: TObject); begin//點擊button1，lResult變成130，第二次變成160，。。。plusXandY(10, 20); end;procedure TForm1.FormCreate(Sender: TObject); varlResult: Integer; begin//初始化lResultlResult := 100;//將方法制定給屬性，但不調用IntSum := procedure (x, y: Integer)beginlResult := lResult + x + y;ShowMessageFmt('x + y = %d', [lResult]);end;end;procedure TForm1.plusXandY(x, y: Integer); beginintSum(x, y);end;end.

?

轉載于:https://www.cnblogs.com/iihe602/archive/2013/02/21/2920887.html

總結

以上是生活随笔為你收集整理的Delphi匿名方法（三）：扩展本地变量的生命周期的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。