Indiziert Labels

[Der.Kaktus]

Gibt es...

z.B.:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var z,i:integer;
    a:Array[0..10] of TComponent; // mal als Beispiel nur 11
begin
 z:=-1;
 For i:=0 to form1.ComponentCount-1 do
 begin
  if (form1.Components[i] is TLabel) then
  begin
    inc(z);
    a[z]:=form1.Components[i];
  end;
 end;
 For i:=0 to z do (a[i] as TLabel).Caption:=IntTostr(i); //Bsp. Caption fuellen
end;