Tipo de Variable

[gabriel3]

Hola a todos...


En Clipper a una variable de texto le asignaba valores (cadenas de caracteres que concatenadas formaría una variable, un campo o un comando clipper). Luego para hacer uso le anteponia el signo '&'. Esto me era util para usar un procedimiento, un numero indefinido de veces sin importar que las variable, campos o comandos deban ser distintos.

Comó puedo hacer esto en delphi?

Detalles : Tengo un formulario con muchos controles Image. Un procedimiento que hace referencia a las propiedades de un control. Y no quiciera tener que hacer un procedimiento diferente por cada control Image sino que hacer 1 procedimiento para todos y que pueda cambiar el nombre del control. El nombre del control se almacenaría en esta variable y el
procedimiento no cambiaría.



Saludos.Gracias...

[roman]

¿Y por qué no le pasas a ese procedimiento el control en sí

Código Delphi [-]
procedure HazAlgo(Imagen: TImage);
begin
  {
    Aquí accedes a las propiedades de Imagen
  }
end;

en lugar del nombre?

// Saludos

[gabriel3]

Disculpa las molestias... No tengo mucha experiencia en Delphi...
Me podrias explicar más en detalle la idea...


Saludos y muchas gracias...

[lucasarts_18]

Hola:

Lo que quiere decir Roman, es algo así:

Te creas un solo procedimiento con un parametro de tipo objeto, luego puedes acceder a las distintas propiedades de este objeto.
Esto es así

Código Delphi [-]
procedure HazAlgo(Imagen: TImage);
begin
  if Imagen.name = 'imagen1' then
      ....
      ....
  end;
  etc..
  etc... 

end;

En definitiva, creas un solo procedimiento y preguntas por los nombres de los controles y ahí tomas las decisiones pertinentes al caso.
Hasta Luego -

[[maeyanes]]

Si el procedimiento que menciona Roman y lucarsarts_18 no tiene que identificar cada TImage individualmente, sería más sencillo con solo hacer:

Código Delphi [-]
procedure HazAlgo(Imagen: TImage);
begin
  with Imagen do
  begin
    // Accedes a las propiedades del TImage
  end
end;

Una llamada a este procedimiento podría ser:

Código Delphi [-]
procedure Form1.Button1Clik(Sender: TObject);
begin
  HazAlgo(Image1) // Image1 es un TImage en TForm1
end;

Espero que este te permita tener más clara la idea...



Saludos...

[gabriel3]

Muchas. Gracias a todos...