Delphi的TListBox和TComboBox在“可选”列表中显示项目列表-字符串。TListBox显示可滚动列表，TComboBox显示下拉列表。

上述所有控件的一个公共属性是Items属性。项定义将向用户显示在控件中的字符串列表。在设计时，双击Items属性时，“字符串列表编辑器”允许您指定字符串项。Items属性实际上是TStrings类型的子体。

列表框中每个项目两个字符串？

有些情况下，您希望向用户显示字符串列表，例如在列表框控件中，但也可以沿向用户显示的字符串存储一个附加字符串。

此外，您可能希望存储/附加的不仅仅是字符串中的“普通”字符串，还可能希望将对象附加到项目（字符串）。

listbox.items-tstrings“知道”对象！

在帮助系统中再次查看TStrings对象。有一个Objects属性，它表示一组与strings属性中的每个字符串关联的对象，其中strings属性引用列表中的实际字符串。

如果要为列表框中的每个字符串指定第二个字符串（或对象），则需要在运行时填充Items属性。

虽然可以使用ListBox.Items.Add方法将字符串添加到列表中，但要将对象与每个字符串关联，需要使用另一种方法。

ListBox.Items.AddObject方法接受两个参数。第一个参数“Item”是项的文本。第二个参数“AOObject”是与该项关联的对象。

请注意，列表框公开了AddItem方法，其作用与Items.AddObject相同。

两个字符串对应一个字符串

由于Items.AddObject和AddItem都接受TObject类型的变量作为其第二个参数，因此如下所示：

//compile error! ListBox1.Items.AddObject('zarko', 'gajic');

将导致编译错误：E2010不兼容类型：“TObject”和“string”。

您不能简单地为对象提供字符串，因为在Delphi for Win32中，字符串值不是对象。

要将第二个字符串分配给列表框项，您需要将字符串变量“转换”为对象—您需要一个自定义的TString对象。

字符串的整数

如果需要与字符串项一起存储的第二个值是整数值，则实际上不需要自定义TInteger类。

ListBox1.AddItem('Zarko Gajic', TObject(1973)) ;

上面的行存储整数“1973”以及添加的“Zarko Gajic”字符串。

上面进行了从整数到对象的直接类型转换。“AOObject”参数实际上是添加的对象的4字节指针（地址）。因为在Win32中，整数占用4个字节-这样的强制转换是可能的。

要获取与字符串关联的整数，需要将“对象”强制转换回整数值：

//year == 1973 year := Integer(ListBox1.Items.Objects[ListBox1.Items.IndexOf('Zarko Gajic')]) ;

字符串的delphi控件

为什么停在这里？正如您刚才所经历的，在列表框中为字符串指定字符串和整数是小菜一碟。

由于Delphi控件实际上是对象，因此可以将控件附加到列表框中显示的每个字符串。

下面的代码将添加到表单上所有TButton控件的ListBox1（列表框）标题（将其放置在表单的OnCreate事件处理程序中）以及对每个按钮的引用。

var idx : integer; begin for idx := 0 to -1 + ComponentCount do begin if Components[idx] is TButton then ListBox1.AddObject(TButton(Components[idx]).Caption, Components[idx]) ; end; end;

要以编程方式“单击”第二个按钮，可以使用以下语句：

TButton(ListBox1.Items.Objects[1]).Click;

我想将自定义对象指定给字符串项

在更一般的情况下，您可以添加自己自定义类的实例（对象）：

type TStudent = class private fName: string; fYear: integer; public property Name : string read fName; property Year : integer read fYear; constructor Create(const name : string; const year : integer) ; end; ........ constructor TStudent.Create(const name : string; const year : integer) ; begin fName := name; fYear := year; end; -------- begin //add two string/objects -> students to the list ListBox1.AddItem('John', TStudent.Create('John', 1970)) ; ListBox1.AddItem('Jack', TStudent.Create('Jack', 1982)) ; //grab the first student - John student := ListBox1.Items.Objects[0] as TStudent; //display John's year ShowMessage(IntToStr(student.Year)) ; end;

你创造的东西必须自由

下面是关于TStrings子体中对象的帮助说明：TStrings对象不拥有您以这种方式添加的对象。即使TStrings实例被销毁，添加到TStrings对象的对象仍然存在。应用程序必须显式销毁它们。

将对象添加到字符串（创建的对象）时，必须确保释放占用的内存，否则会出现内存泄漏

通用自定义过程FreeObjects接受TStrings类型的变量作为其唯一参数。FreeObjects将释放与上面示例中字符串列表中的项目关联的任何对象，“学生”（TStudent类）附加到列表框中的字符串，当应用程序即将关闭时（例如，主窗体OnDestroy事件），您需要释放占用的内存：

FreeObjects(ListBox1.Items) ;

注意：仅当您创建了指定给字符串项的对象时，才调用此过程。