Objetos clonados

[felipe_jfx]

Saludos.
En una forma tengo 12 objetos Shape a los que les debo asignar una altura (height) dependiendo de un resultado obtenido en un ciclo For. Mi inexperiencia me hizo programarlo de la siguiente forma:

FIBConsultaMes.First;
for ciclo:=1 to 12 do
begin
if ciclo=1 then Shape1.height:=FIBConsultaMes.fields[0].value;
if ciclo=2 then Shape2.height:=FIBConsultaMes.fields[0].value;
if ciclo=3 then Shape3.height:=FIBConsultaMes.fields[0].value;
if ciclo=4 then Shape4.height:=FIBConsultaMes.fields[0].value;
if ciclo=5 then Shape5.height:=FIBConsultaMes.fields[0].value;
if ciclo=6 then Shape6.height:=FIBConsultaMes.fields[0].value;
if ciclo=7 then Shape7.height:=FIBConsultaMes.fields[0].value;
if ciclo=8 then Shape8.height:=FIBConsultaMes.fields[0].value;
if ciclo=9 then Shape9.height:=FIBConsultaMes.fields[0].value;
if ciclo=10 then Shape10.height:=FIBConsultaMes.fields[0].value;
if ciclo=11 then Shape11.height:=FIBConsultaMes.fields[0].value;
if ciclo=12 then Shape12.height:=FIBConsultaMes.fields[0].value;
FIBConsultaMes.Next;
end;

Sin embargo sé que puedo hacer algo para reducir el código para no tener 12 IF, algo así como un apuntador al objeto shape 1..12. De antemano agradezco las aportaciones a mi duda.

[Casimiro Notevi]

Bienvenido a clubdelphi, ¿ya leiste nuestra guía de estilo?, gracias por tu colaboración

Recuerda poner los tags al código fuente, ejemplo:



Gracias

[[movorack]]

Hola felipe_jfx.

Con respecto a tu pregunta; Aparentemente no reduje las líneas de código, pero puedes echarle un vistazo al siguiente código:

Código Delphi [-]
procedure TForm1.SetWidthsClick(Sender: TObject);
  var
    i : Integer;
    lStName : string;
    lComponent : TComponent;
begin
  lComponent := nil;
  for i := 1 to 12 do
  begin
    try
      lStName := Format('Shape%d', [i]);
      lComponent := FindComponent(lStName);
      if Assigned(lComponent)
         and (lComponent is TShape)
      then
      begin
        TShape(lComponent).Width := SpinEdit1.Value;
      end;
    finally
      lComponent := nil;
      lStName := '';
    end;
  end;
end;

Esto te permitirá buscar todos los objetos de la clase TShape que se llamen Shape[1..12] y modificarles el tamaño.

Un Saludo y Bienvenido al Club!

[champy]

Supongo que habrán distintas formas de hacerlo pero yo utilizaría la función FindComponent('NombreDelComponente'), algo así.

Código Delphi [-]
Procedure CambiarHeight;
var
  Shap : Tshape;
  N : Integer;
begin
  For N := 1 to 5 do
  begin
    (FindComponent('Shape'+IntTosTr(N)) as Tshape).Height := 100;
  end;
End;

[felipe_jfx]

Casimiro, acertada y útil tu sugerencia de los Tags.

Champy, gracias en efecto la función FindComponent() fue parte de la solucuión.

Movorack, tu aportación resolvió de forma excelente lo que quería lograr, mi código era más abultado de lo que mostré en el ejemplo así que creeme que si reduje muchísimo el código final. Cuando esté terminado publicaré como quedó.

El tiempo de respuesta me sorprendió, estoy agradecido.

[Casimiro Notevi]

Gracias por visitarnos