Question

我想知道在delphi中是否可以从对象Tcollection中填充组合框组件。

somme code：

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

  with (FListProduct ) do
  begin
    with TProduct(Add) do
    begin
      Name := 'Product 01';
      CIP := 'A001';
      StockQty := 3;
    end;

    with TProduct(Add) do
    begin
      Name := 'Product 02';
      CIP := 'A002';
      StockQty := 5;
    end;
  end;

//需要填充一个组合框（名称为cbxListProduct）

procedure TfoMain.fFillCbxFromProductList(aProductList: FListProduct);
begin
      // I don't know how to do this follow 
    foMain.cbxListProduct.Items.Add()
end;

谢谢。

Answer 1

像这样的东西（改变组合框和集合名称以反映你的情况）：

for i := 0 to Collection.Count-1 do
    myComboBox.Items.Add(TProduct(Collection.Items[i]).Name);

顺便说一句，你不需要中的“foMain”

foMain.cbxListProduct.Items.Add()

写

就足够了

cbxListProduct.Items.Add()

当您进入TfoMain程序时，默认情况下可以访问TfoMain的内容。

Answer 2

在较新的Delphis中你可以做到

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

delphi 7：如何从对象Tcollection中填充组合框？

2 个答案: