delphi 7：如何从object Tcollection填充组合框？

我想知道在delphi中是否可以从object Tcollection填充combobox组件

somme代码：

//我的产品清单 程序TfoMain.InitForm； 开始 FListProduct:=TListeDispoProduit.Create（TProduct）

//需要填写组合框（名称为cbxListProduct）

谢谢。

类似的内容（更改组合框和集合名称以反映您的案例）：

顺便说一句，你不需要那个“foMain”在里面

足够写了

cbxListProduct.Items.Add()

在TfoMain的过程中，默认情况下可以访问TfoMain的内容。

类似的内容（更改组合框和集合名称以反映您的情况）：

顺便说一句，你不需要那个“foMain”在里面

足够写了

cbxListProduct.Items.Add()

---

当您在TfoMain的过程中时，默认情况下可以访问TfoMain的内容。

在较新的Delphis中，您可以执行以下操作

for item in collection do
    myComboBox.Items.Add(TProduct(item).Name)

---

在较新的德尔菲语中，你可以这样做

for item in collection do
    myComboBox.Items.Add(TProduct(item).Name)

---

请编辑发帖的语气。含糊不清的侮辱性讽刺在一个旨在帮助人们的网站上是没有立足之地的，尤其是当问题是合法的时候。事实上，你（几乎）不应该在表单的方法中引用表单变量（在本例中是foMain）。如果表单有多个实例，那么它将严重失败。如果您想消除歧义，请使用

Self.

。请编辑您的帖子语气。含糊不清的侮辱性讽刺在一个旨在帮助人们的网站上是没有立足之地的，尤其是当问题是合法的时候。事实上，你（几乎）不应该在表单的方法中引用表单变量（在本例中是foMain）。如果表单有多个实例，那么它将严重失败。如果要消除歧义，请使用

Self.

。

cbxListProduct.Items.Add()

for item in collection do
    myComboBox.Items.Add(TProduct(item).Name)