如何在ListView1里根据表里的记录数动态的生成Panel

Question

如何在ListView1里根据表里的记录数动态的生成Panel,如：表A中有3条记录，则在ListView1里添加并显示三个Panel。用代码该怎么实现。谢谢

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  p : array of  TPanel;
  pCount ,i: integer;
begin
    pCount := 3;
    SetLength(p,pCount);
    for i := 0 to pCount-1 do
    begin
      p[i] := TPanel.Create(nil);
      p[i].Parent := ListView1;
      p[i].Left := 100;
      p[i].Top := 100*i;
      p[i].Caption := 'wudi';
    end;end;