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 取用元素时的代码。 ```