單元代碼實作 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes

DFM 窗體定義 object Form1: TForm1 Left = 288 Top = 242 Caption = Form1 Clien

DFM 窗體定義 object Form1: TForm1 Left = 23 Top = 87 Caption = Form1 ClientH

舊 TList 存儲整數：指標轉型麻煩 var oldList: TList; n, elem: Integer; pTmp: Pointer; oldList

測試類別：可觀測建構/解構 unit Felix; interface uses SysUtils; type TFelix = class priva

OwnsObjects 行為差異 舊 TObjectList.Create(False) 可設定不擁有物件，但 TObjectList<T> 無對應

泛型方法限制 不支援全域泛型函數 僅能定義在類別內、巢狀方法內、或為類別靜態方法 泛型方法範例：列印參數位址 type TGeneric =

類別型別約束 TGenericsClass1<T: class> 限制 T 必須為類別型別： type TGenericsClass1<T

建構函數約束：語法有效但用法受阻 宣告：TGeneric<T: constructor> 要求 T 有可見建構函數。 但實例化時 t := T.Cr

多泛型參數分別約束 語法：TGenericsClass<T: class; T1: TList>，以分號分隔各參數約束。 嵌套約束支援 Delph

OOP Pascal 棧疊物件行為分析 Delphi 傳統 object 型別（棧疊物件）宣告與使用： type TStackObject = object

C++ 模式在 Delphi 的困境 C++ 智能指針依賴棧疊物件的確定性建構/解構： 建構時接管堆疊物件指標 解構時 delete 釋放 Delp

介面型別自動釋放實證 測試程式： program TestInterface; {$APPTYPE CONSOLE} uses SysUtils; type

TClassicalAutoPtr：非泛型智能指針 在泛型支援前，利用 TInterfacedObject 介面引用計數機制實作： unit Classical

測試程式骨架 建立標準控制台應用程式作為後續智能指針功能驗證的基礎框架： program TestAutoPtr; {$APPTYPE CONSOLE} use

TAutoPtr 核心方法實作 function TAutoPtr<T>.Release: T; begin Result := fObj;

Get 方法：保持管理權 預設測試輸出： 物件在方法結束時自動銷毀，符合預期。 Release 方法：轉移管理權 將測試代碼改為 ap.Release.Do

全域變數持有智能指針 宣告全域介面變數： var gAp: IAutoPtr<TTestClass>; 修改測試流程： procedure D

測試場景：智能指針集合 建立包含智能指針的泛型集合 TList<IAutoPtr<TTestClass>>，驗證集合對智能指針生命週期的

循環引用場景構建 修改 TTestClass，加入指向自身智能指針的介面引用： TTestClass = class private fInt: Integ