请问有一组Tlabel，如何用数组表示？

Question

use dbtables,
var
    tmp:array[0..100] of ttable;

Answer 1

楼上的兄弟也太性急了吧，是label不是table
不过同理可得，呵呵
我来多说两句for counter := 1 to 10 do
begin
       Label[counter]:= TLable.Create;
       Lable[counter].top := ...
       Lable[counter].Left := ...
       Lable[counter].Parent := Mainform;
end;

Answer 2

谢谢两位，我按coldljy的方法试了一下，运行时出错
var
   label1:array[1..9] of tlabel;
   i:integer;
for i:=1 to 9 do
 begin
    label1[i].top:=...
    label1[i].left:=...
 end;
没有parent这个属性啊，我找不到
不知我哪里错了，请指教！    

Answer 3

以下测试通过：procedure TForm1.Button1Click(Sender: TObject);
var
  label1:array[1..9] of tlabel;
  i:integer;
begin
  for i:=1 to 9 do
  begin
    Label1[i]:= TLabel.Create(self);
    label1[i].top:=0+i*30;
    label1[i].left:=0;
    label1[i].Parent:=self;
    label1[i].Caption := IntToStr(i);
  end;
end;

Answer 4

////////////////No.1
const
  cLabelCount = 3;
var
  vLabelList; array [1 .. cLabelCount] of TLabel;
//...
procedure Form1Create(Sender: TObject);
begin
  vLabelList[1] := Label1;
  vLabelList[2] := Label2;
  vLabelList[3] := Label3;
end;
      
////////////////No.2
var
  vComponent: TComponent;
  I: Integer;
begin
  for I := 1 to 3 do begin
    vComponent := FindComponent(Format('Label%d', [I]));
    if Assigned(vComponent) then 
      TLabel(vComponent).Caption := '我找到了你';
  end;

Answer 5

可以用Open Array处理在设计时放好的Label。如下：// 把一组Label禁止或激活
procedure EnableLabels(const Labels: array of TLabel; bEnable: Boolean);
var
  i: Integer;
begin
  for i:=Low(Labels) to High(Labels) do
    Labels[i].Enabled := bEnabled;  // 象VB了吧？
end;
procedure TForm1.EventHandler(Sender: TObject);
begin
  EnableLabels( [Label1, Lebel2, ...], False );
end;当然，你也可以成批操作其它属性，如颜色，字体等利用TWinControl.Controls还可以一次操作一个Form或Panel中的TLabel。如果感兴趣，请给我email: [email protected]，我会来给出源代码。（不知道为什么，网站不能自动给我email了）

Answer 6

谢谢coldljy,可以了，我还有一点不太明白，为什么已定义了为tlabel,还要用tlabel.create建立？