首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > .NET > .NET >

delphi字符转控件门类

2013-04-21 
delphi字符转控件类型for i:0 to 6 dobeginTLabel(lbl2+IntToStr(i)).Caption:abcend如上面代码,

delphi字符转控件类型
  for i:=0 to 6 do
  begin
    TLabel('lbl2'+IntToStr(i)).Caption:='abc';
  end;
如上面代码,报错 (访问地址非法);
如何将字符串转换成控件类型并对对应的控件进行操作呢?

[解决办法]

TLabel(Self.FindComponent('Label1')).Caption := 'abc';

例如这样改:


var
  I: Integer;
  L: TComponent;
begin
  for I := 1 to 6 do begin
    L := Self.FindComponent('Label'+InttoStr(I));
    if L <> nil then
      if L is TLabel then TLabel(L).Caption := 'abc';
  end;
end;

热点排行