지금 사용중인 익명메소드를 사용한 Guard함수(try..finally 대용)을 적습니다. 제가 가진 소스는 다른 것과 연계된 것이 많아 아래 다른 분의 소스를 간단하게 수정하여 적습니다.

기존의 Guard는 고정된 형태의 메소드 형태만 가능하지만 익명함수를 사용하면 제한이 사라집니다.

=== 사용 예 -====

var stream: TStream;

ds: TxxConnect;

begin

stream := TMemoryStream.Create;

Screen.Cursor := crHourglass;

ds := TxxConnect.Create;

//Finally블럭에서 사용하는 구문 전체를 적으면 됩니다.

Guard( procedure begin

     stream.Free;

     Screen.Cursor := crDefault;

     if (ds.Connected) then ds.Disconnect;

     ds.Free; 

    end;);

ds.Connect;

.....

 

 

=====  함수 소스 ====

TProc = reference to procedure ; //익명함수

function Guard(event : TProc): IUnknown; overload;



implementation

type

TFinalObject = class(TInterfacedObject)
private
FProc : TProc;
public
constructor Create(Instance: TProc); overload;

destructor Destroy; override;

end;

 

constructor TFinalObject.Create(Instance: TProc);

begin

Fproc := Instance;
end;

 

destructor TFinalObject.Destroy;

begin

  if Assigned(FProc) then FProc;
  inherited;

end;

function Guard(event : TProc): IUnknown; overload;

begin

  Result := TFinalObject.Create(event);

end;