unit Guards;

interface

function Guard(out Reference; Instance: TObject): IUnknown;

implementation

type
TGuardObject = class(TInterfacedObject)
private
FInstance: TObject;
public
constructor Create(Instance: TObject);
destructor Destroy; override;
end;

{ TGuardObject }

constructor TGuardObject.Create(Instance: TObject);
begin
FInstance:= Instance;
end;

destructor TGuardObject.Destroy;
begin
FInstance.Free;
inherited;
end;

function Guard(out Reference; Instance: TObject): IUnknown;
begin
Result:= TGuardObject.Create(Instance);
TObject(Reference):= Instance;
end;

end.



사용예:

procedure TForm1.Button1Click(Sender: TObject);
var List: TStringList;
begin
Guard(List, TStringList.Create);
List.Add('1234');
end;


해설:

JCL의 Guard와 같은것인데 좀더 간결하게 만든것입니다.
원리는 간단합니다. Guard는 IUnknown을 반환하는데 이것을 일부러
받지 않는것이죠. 그러면 IUnknown은 임시변수에 저장됩니다.
임시변수는 지역변수와 마찬가지로 프로시져가 종료할때까지 유지됩니다.
임시변수가 IUnknown 이므로 종료할때 자동 Free되고 이때 넘겨줬던
객체도 같이 Free 되는것입니다.