二维数组，如何让a:TEdit类,b:TLabel类？

Question

用记录数组
type
  xx = record
  a : TEdit;
  b : TLabel;
end;var 
  yy : array of xx；

Answer 1

用TList即可，她的方法Add可以添加任何对象的指针（相当于存储了该对象）
—————————————————————————————————
MaximStr := '宠辱不惊，看庭前花开花落，去留无意；
             毁誉由人，望天上云卷云舒，聚散任风。';
if Not Assigned(I) then
  I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”等字样，删除它们';
I.Desire := '加不加分随你';
—————————————————————————————————
　　　　　　　

Answer 2

或者将数组定义为：
Array of Pointer，和使用TList是同样功能
—————————————————————————————————
MaximStr := '宠辱不惊，看庭前花开花落，去留无意；
             毁誉由人，望天上云卷云舒，聚散任风。';
if Not Assigned(I) then
  I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”等字样，删除它们';
I.Desire := '加不加分随你';
—————————————————————————————————
　　　　　　　

Answer 3

同意楼上，还是用记录数组吧:
type
  xx = record
  a : TEdit;
  b : TLabel;
end;
procedure TForm1.Button1Click(Sender: TObject);
 var
  MyArray:array of xx;
begin
  SetLength(MyArray,2);
  MyArray[0].a:=edit1;
  MyArray[0].b:=label1;
  ShowMessage((MyArray[0].a as Twincontrol).classname);
  ShowMessage((MyArray[0].b as TGraphicControl).classname);
end;