能动态增加变量吗?如动态地增加Lable1,Lable2,...Lable30.目的是能关联动态的对象.

解决方案 »

  1.   

    可以呀
    procedure TF_test.BitBtn2Click(Sender: TObject);
    var
      edit:tedit;
    begin
      edit:=tedit.Create(self);
      edit.Parent:=self;
      edit.Text:='11';end;
      

  2.   

    我的意思是不知有多少个变量,也就是EIDT1,EDIT2预先不能罗列出来。
      

  3.   

    Self.ComponentCount//得到窗体中所有的控件的个数值
      if Self.Components[0] is TEdit//得到指定的控件是不是Tedit控件
      

  4.   

    也是个办法,(Self.Components[0] as TEdit).name='edit1'看行不行