组件赋值给变量的问题

Question

我动态生成了１５个 Tlabel  (var MyLabel[1..15]:Tlabel) 
做了相关操作后,我要吧 MyLabel[N] 赋值给一个变量
如  Flabel:='MyLabel[1]' (Flabel:string)
我怎么样才能使用 Flabel.Caption 来调用 MyLabel[1].Caption 
似乎有一个函数．但我忘记了．

Answer 1

FindComponent,可以根据名称找到组件

Answer 2

Flabel:=MyLabel[1];这样就可以了

Answer 3

Flabel是string类型的话，Flabel.Caption是啥意思？
Flabel: TLabel吧？
然后Flabel:=MyLabel[1];

Answer 4

var
  FODJ : TComponent;
begin
...
  FODJ := FindComponent(StrTmp);
  (FODJ as TLabel).Caption := '';
  ...
end

Answer 5

最好不要用数组管理，使用tstringlist的addobject来管理

Answer 6

其它 Flabel 也是一个数组 Flabel:array   [1..5,1..5]   of string;
 Flabel[1,1]:='MyLabel[1]'; 
 Flabel[1,2]:=inttostr(MyLabel[1].top); 
 Flabel[1,3]:=inttostr(MyLabel[1].left); 
 ...我现在要用 Flabel[1,1].Caption  用 FindComponent 似乎也出错了