关于LABEL的问题

Question

var
  i :integer;
begin
  for i := 0 to form1.component.count-1 do  
   if form1.components[i] is Tlabel then 
   showmessage(TLabel(form1.Components[i]).Caption);
end;

Answer 1

更正
form1.component.count-1 ->form1.ComponentCount-1

Answer 2

for i:= 1 to 10 do
begin
    if FindComponents('Label'+Inttostr(i)) Is TLabel then
    begin
       TLabel(FindComponents('Label'+Inttostr(i))).Caption := 'aa';
    end;
end;

Answer 3

for i:= 1 to 10 do
begin
if FindComponents('Label'+Inttostr(i)) Is TLabel then
 begin
 TLabel(FindComponents('Label'+Inttostr(i))).Caption := 'aa';
 end;
end;

Answer 4

liujc(阿聪) (  )
经典

Answer 5

procedure TForm1.FormCreate(Sender: TObject);
var
  i:integer;
begin
   for i:= 1 to 10 do
     begin
       if Form1.FindComponent('Label'+Inttostr(i)) Is TLabel then
         begin
           TLabel(Form1.FindComponent('Label'+Inttostr(i))).Caption := 'aa';
         end;
    end;
end;

Answer 6

或者自己定义Tobject数组 
MyLabel:array[1..10]of Tobject;
然后使用Tcomponent(Mylabel[i])循环即可!