一个关于指针的问题，请教大家。

[cggong]

比如说一个窗体中有四个Label：Label1..Label4.
我想给他们的Text属性分别赋值为1,2,3,4,能不能用for语句？

我希望能这样：
const
Labels: Array[0..3] of ^Label =(@Label1,@Label2,@Label3,@Label4);
begin
for i:=0 to 3 do Labels[I]^.text:= inttostr(i);
end;
但是不能通过编译，请高手帮忙改下，或者有别的办法，先谢了！

[nana20082009abc]

var
_Label:TLabel;
i:integer;
begin
For i:=1 to 4 do
if FindComponent('Label'+inttostr(I)) <> nil then
begin
_Label:=FindComponent('Label'+inttostr(I))as TLabel;
_Label.Text:=inttostr(i);
end;
end;

[jdbca]

var
i,c: integer;
begin
c:=1;
for i := 0 to self.ComponentCount - 1 do
begin
if self.Components[i] is TLabel then
(self.Components[i] as TLabel).Caption := inttostr(c);
inc(c);
end;
end;

[kaikai_kk]

使用Controls或Components循环给数组赋值

[广州佬]

如果那4个TLabel的名字没带数字序列号的，可以这样：

var i:integer;
    Labels: Array[0..3] of TLabel;
begin
  Labels[0]:=startLbl;//相当于Label1
  Labels[1]:=endLbl;//相当于Label2
  Labels[2]:=connLbl;//相当于Label3
  Labels[3]:=countLbl;//相当于Label4
  for i:=0 to 3 do Labels[i].Caption:= inttostr(i);
end;