System.Defer

system.defer

延期Delphi

从曲折编程语言中延迟资源（对象，内存或取消动作）的机制的类似物。

该机制的本质是，经过一定的操作，创建一个取消操作，该操作将在块退出时执行。

也就是说，例如，我们创建了一个对象，创建后，我们编写了如何释放它，并且将在退出块后自动发布。

该机制在界面基础上起作用。

将异常放在块中并不能阻止对象的释放。

描述

defer用于在退出当前块时执行语句。 errdefer工作方式与defer一样，但仅在返回函数时使用Errdefer块内部错误时执行。

使用

目的

 uses
  ..., System.Defer;

type
...
  TTestList = class (TStringList)
    procedure DoRaise ;
    destructor Destroy; override;
  end ;
...

procedure TForm5.Button1Click (Sender: TObject);
begin
  var Test := TTestList.Create;
  defer(Test);  // defer action

  Test.Add( ' 1 ' );
  Test.Add( ' 2 ' );
  Test.Add( ' 3 ' );
  Test.DoRaise;      // test raise
  Test.Add( ' 4 ' );
end ;                 // free

{ TTestList }

destructor TTestList.Destroy;
begin
  ShowMessage( ' test list destroy ' );
  inherited ;
end ;

procedure TTestList.DoRaise ;
begin
  raise Exception.Create( ' Error Message ' );
end ;

initialization
  ReportMemoryLeaksOnShutdown := True;

 for var i := 1 to 4 do
 begin
   var Test := TTestList.Create;
   defer(Test);

   Test.Add( ' 1 ' );
   Test.Add( ' 2 ' );
   Test.Add( ' 3 ' );
 end ;  // free of Test each iteration

方法

 procedure TForm5.Button4Click (Sender: TObject);
begin
  BeginUpdate;
  defer(EndUpdate);   // defer action
  // / your code with BeginUpdate
end ;

记忆

 var p: Pointer;
 GetMem(p, 1024 );  // allocate mem
 defer( procedure begin FreeMem(p) end );  // defer action for free mem
 // work with p 

errdefer

 function GetList : TTestList;
begin
  var List := TTestList.Create;
  errdefer(List);
  List.DoRaise;
  Result := List;
end ;

procedure TForm5.Button5Click (Sender: TObject);
begin
  var List := GetList; // exception, and no leaks
  List.Free;
end ;