就是像vb里一样,比如lab[0],lab[1]这种,在delphi里该如何实现呢

解决方案 »

  1.   

    var lab:array[0..10] of Tlabel;
    lab[0]:=label1;
    lab[1]:=label2;
    .........
    //:)
      

  2.   

    帮我看看我的这段代码为什么一运行就会报错呢:
    procedure Tform1.auto_gen_chkbox();
      var i:integer;
      var chkbox:array of TCheckbox;
      begin
      rs_cate.First;  
       for i:=0 to 5 do
        begin      With chkbox[0].Create(self) do
            begin
              Parent:=self;
              caption:=IntToStr(i);
              left:=550;
              Top:=50+i*15;
              Width:=100;
              
            end;
          end;  end;
      

  3.   

    好像是说我的chkbox变量没有初始化。
      

  4.   

    procedure Tform1.auto_gen_chkbox();
      var i:integer;
      var chkbox:array of TCheckbox;
      begin
      rs_cate.First;  
       for i:=0 to 5 do
        begin      //With chkbox[0].Create(self) do
          With chkbox[i].Create(self) do
            begin
              Parent:=self;
              caption:=IntToStr(i);
              left:=550;
              Top:=50+i*15;
              Width:=100;
              
            end;
          end;  end;
      

  5.   

    我已经知道了,我定义的是动态数组,要先确定其长度,在begin后面
    加了setlength(chkbox,5)就可以了。