Crear en ejecucion varias instancias de un mismo grupo de elementos

[[basti]]

Si lo que quieres es crear los componentes por código, como dice dec, tendrías que llamar al constructor de cada uno:

Código Delphi [-]
 
procedure TForm.FormCreate(Sender: TObject);
begin
  ...
  SetLength(RackCard,70);
 
  for I := 0 to 69 do begin
 
    // RackCard[i] := TRackCard.Create; // no hace falta, en los records no hay que llamar al constructor.
 
   // esto es lo nuevo
    RacCard[i].ShapeA := TShape.Create(self);
   // hasta aquí lo nuevo
    RackCard[i].ShapeA.Left        :=    ...;
    RackCard[i].ShapeA.Top         :=    ...;
    // sigo definiendo aqui todos los demás atributos de ShapeA
    ...
    RackCard[i].ShapeB.Left        :=    ...;
    RackCard[i].ShapeB.Top         :=    ...;
    // sigo definiendo aqui todos los demás atributos de ShapeB, etcétera
    ...
  end;
 
end;

[[gluglu]]

Gracias Basti.

Funciona correctamente !

... de mi ! En otra parte del programa había hecho algo parecido y no me he percatado de ello para esta problemática que planteo en este hilo.

En cualquier caso, al código le falta un detalle para que funcione correctamente :

Código Delphi [-]
procedure TForm.FormCreate(Sender: TObject);
begin
  ...
  SetLength(RackCard,70);
 
  for I := 0 to 69 do begin
 
    RacKCard[i].ShapeA := TShape.Create(self);
    RackCard[i].ShapeA.Left        :=    ...;
    RackCard[i].ShapeA.Top         :=    ...;
    // sigo definiendo aqui todos los demás atributos de ShapeA
    RackCard[i].ShapeA. Parent := Self;
    ...
    RacKCard[i].ShapeB := TShape.Create(self);
    RackCard[i].ShapeB.Left        :=    ...;
    RackCard[i].ShapeB.Top         :=    ...;
    RacKCard[i].ShapeB.Parent := Self;
    ...
  end;
 
end;

Conclusión : He probado la funcionalidad de mi programa de esta manera, es decir, accediendo después directamente a RackCard[i].ShapeA (por ejemplo), en vez de utilizar el FindComponent en un Form que como ya comenté antes tiene cerca de 1000 elementos.

Cual sorpresa la mía. No hay NINGUNA mejora de rendimiento. Vamos, que lo mismo es acceder al Array directamente que utilizar FindComponent con una lista de 1000 componentes en el form.

En un procedimiento de actualización con datos y tal, ambos procesos tardan exactamente 4.6 segundos medidos en mi ordenador.

Por lo que concluyo que mi idea de utilizar arrays con acceso directo en vez de FindComponent finalmente no mejora el rendimiento. Así que se queda como está !

Gracias a todos por vuestra ayuda.

[[basti]]

Me extraña que no haya diferencia entre uno y otro. He visto la implementación de FindComponent:

Código Delphi [-]
  if (AName <> '') and (FComponents <> nil) then
    for I := 0 to FComponents.Count - 1 do
    begin
      Result := FComponents[i];
      if SameText(Result.FName, AName) then Exit;
    end;
  Result := nil;

Es una búsqueda lineal, debería de tardar algún tiempo, mientras que el array es un acceso directo. Es posible que no exista diferencia por tratarse de un array dinámico.

Puedes probar a declararlo como

Código Delphi [-]
  RackCard : array [0..69] of TRackCard;

Y luego hacer la prueba dentro de un bucle de unas 100 repeticiones, para ver si realmente existe diferencia de tiempo.

[[gluglu]]

Probablemente, por no decir casi seguro, pueda haber una diferencia de tiempo y de rendimiento entre las dos opciones que venimos comentando.

Lo que quiero aclarar es que a pesar de utilizar FindComponent con el número de componentes que tengo en mi form, el rendimiento no mejora en el procedimiento que realizo. He probado también declarando el Array como indicas arriba.

Trabajando con datos, y realizando las búsquedas que hago, actualizaciones, etcétera, (que está claro que es lo que más tiempo me va a llevar en cuanto a observar el rendimiento), no se aprecian diferencias entre ambas formas de implementación.

[[gluglu]]

Siguiente duda que me surge :

Cuando selecciono cualquier elemento con el ratón, ya sea un Shape o Label del Record (RackCard) que acabo de crear (haciendo por ejemplo Click en cualquiera de ellos), como sé que posición en el array ocupa ??

Es decir, quiero saber cual ficha he seleccionado desde la 0 a la 69. La función IndexOf me devuelve el valor buscado ?

Nota: No puedo utilizar los Tag's de cada componente, debido a que ya los tengo asignados con otros valores.

[[gluglu]]

Me acabo de dar cuenta que puedo utilizar la propiedad Name de cada elemento para saber cual he pulsado.

Si se os ocurre otra posibilidad ....

[[basti]]

Te iba a responder con lo de los Tag, pero ya veo que no es posible.

IndexOf no te dará el valor de la posición del array. Tendrías que hacer una función que hiciese el recorrido a través del array y compararlo con on el Sender que recibes en el OnClick.

[roman]

¿Qué tal si usas el tag?

No, ya en serio, ¿qué tal si usas el tag? Ya sé que lo tienes asignado para otra cosa pero en realidad puedes usarlo para almacenar una referencia o puntero a un objeto o registro en donde almacenes lo que antes tenías en el tag y el índice que ocupa en el arreglo.

// Saludos