Delphi también puede implementar matrices de control definiendo variables de matriz para implementar matrices de control.
Mi capacidad de expresión es limitada y este artículo es la primera vez que publico un documento, así que perdóneme por cualquier inconveniente.
Cuando usamos Delphi, a veces nos encontramos con un problema, es decir, Delphi no nos permite definir matrices de control tan fácilmente como software como VB o VF. Cuando escribo un CD de demostración multimedia, necesito usar muchos controles de imagen, y si no uso una matriz de controles, será muy problemático y complicado escribir el programa. Entonces, después de pensar durante mucho tiempo, finalmente decidí implementar la matriz de control definiendo variables de matriz.
Aquí está el código:
Procedimiento Tfrm_main.FormCreate(Remitente: TObject);
var
image:array[1..12] of TImage; //Se utiliza para almacenar 12 cuadros de imagen.
label:array[1..12] of TLabel;//usado para almacenar 12 etiquetas
comenzar
//Paga el objeto de imagen a la matriz de imágenes
imagen[1]:=imagen1;
imagen[2]:=imagen2;
imagen[3]:=imagen3;
imagen[4]:=imagen4;
imagen[5]:=imagen5;
imagen[6]:=imagen6;
imagen[7]:=imagen7;
imagen[8]:=imagen8;
imagen[9]:=imagen9;
imagen[10]:=imagen10;
imagen[11]:=imagen11;
imagen[12]:=imagen12;
//Paga el objeto de etiqueta a la matriz de etiquetas
etiqueta[1]:=etiqueta1;
etiqueta[2]:=etiqueta2;
etiqueta[3]:=etiqueta3;
etiqueta[4]:=etiqueta4;
etiqueta[5]:=etiqueta5;
etiqueta[6]:=etiqueta6;
etiqueta[7]:=etiqueta7;
etiqueta[8]:=etiqueta8;
etiqueta[9]:=etiqueta9;
etiqueta[10]:=etiqueta10;
etiqueta[11]:=etiqueta11;
etiqueta[12]:=etiqueta12;
fin;