TListBox, TComboBox, TTreeView 等組件，都具有附加信息功能，此功能在界面交互（用戶選擇時）非常有用，務必掌握。 [本例 dephi 7 源碼下載](https://www.jianguoyun.com/p/Dd64xt0QxMf4BRjb4lM)  1.本例設計了一個 TSimpleList 并繼承,規定了 Pointer 的釋放規則。 2.簡單演示了各組件的 ItemIndex , 以及存放附加信息的方法。 3.TObject 與 Pointer 的強制轉換, TObject 與 TListBox等的強制轉換。 編程，在于安排代碼流程與數據存取方法，本例即為數據存取的一種典型方法。 ``` // delphi 7 也支持以下 Q:=x; var Q:TObejct; X:pointer; begin Q:=X; end; // 利用這個特性，可以進一步簡化 tlist 取用元素時的代碼。 ```