3

私は 3 列の Tlistview を持っています。次のように Tcollection オブジェクトから必要です

FListeDispoProduit := TListeDispoProduit.Create(TProduit);

  with (FListeDispoProduit) do
  begin
    with TProduit(Add) do
    begin
      Name := 'Produit 01';
      CIP := 'A001';
      StockQty := 3;
    end;

しかし、このオブジェクトを Tlistview に入れようとすると、最初の列 (名前) だけが読み込まれます。次のように記述します。

for i := 0 to FListeDispoProduit.Count -1 do
     Tlistview1.Items.Insert(i).Caption := TProduit(FListeDispoProduit.Items[i]).Name;

これらの 3 つの列 (Name,cip,StockQty) を埋める必要があります。どうすればよいですか?

ありがとうございました。

私が明確であることを願っています。

4

2 に答える 2

7 
for i := 0 to FListeDispoProduit.Count -1 do  
   with ListView1.Items.Add() do begin
      Caption :=  TProduit(FListeDispoProduit.Items[i]).Name;  
      SubItems.Add(TProduit(FListeDispoProduit.Items[i]).CIP);   
      SubItems.Add(IntToStr(TProduit(FListeDispoProduit.Items[i]).StockQty));  
   end;

そして、TListView にさらに列を追加します

于 2010-08-12T08:09:18.433 に答える