2、什麼使用時候使用Release方法
首先我們為測試單元加入use：Generics.Collections，再將TTestClass類修改如下：
type
TTestClass = class
private
fList: TList<Integer>;
public
constructor Create(aInt: Integer); overload; virtual;
destructor Destroy; override;
procedure DoPrintInt;
end;
{ TTestClass }
constructor TTestClass.Create(aInt: Integer);
begin
inherited Create;
fList := TList<Integer>.Create;
fList.Add(aInt);
Writeln('Create');
end;
destructor TTestClass.Destroy;
begin
Writeln('Destroy');
FreeAndNil(fList);
inherited;
end;
procedure TTestClass.DoPrintInt;
begin
Writeln(fList[0]);
end;
此時，成員變量不再是一個值類型，而是一個引用類型。
將從DoTestAutoPtr方法開始代碼修改如下：
procedure DoTestAutoPtr;
begin
gTt := TAutoPtr<TTestClass>.New(TTestClass.Create(10)).Get; // 6*
end;
begin
DoTestAutoPtr;
gTt.DoPrintInt;
Readln;
end.
此時，我們在DoTestAutoPtr方法內部創建了智能指針，並將智能指針所指向的堆對象傳給全局變量，然後在DoTestAutoPtr方法執行結束後調用全局變量的DoPrintInt方法。運行結果：
