Array de Shapes

[[Lepe]]

Código Delphi [-]
 var a: array [0..100] of Tshape;
      i:integer;
begin
 for i:= low(a) to 50 do
 begin
    a[i]:= Tshape.create(form1);
    a[i].parent......
 end;
 a[51] := Form1.shape1 ;
// por qué no vamos a meter una que ya esté en la ventana ???
{sería mas facil acceder mediante Form1.Shape1, pero si quieres
 homogeneizar las cosas, puedes meter otras que esten ya creadas}

Si que era sencillo no???
Complicando la cosa un poquito

Código Delphi [-]
   var a : array [Boolean] of Tshape;
         b:boolean;
begin
a[false].visible := false;
a[True].visible := true;
a[b].visible := false; // pos depende de B cual de las 2 haces invisible.

no te lies, [Boolean] es igual que [0..1]



Saludos