Pasar Nombre de componenete como parametro de una funcion

[dandyuno]

Muy Buenas, soy nuevo en builder y en el foro, o sea novato en ambos.
Estoy haciendo un programilla para ir practicando en el que uso paneles, imaganes, etc... se que en otros lenguajes se puede hacer lo que planteo a continuacion pero en builder c++ lo desconozco.

El caso es que querria saber si se puede pasar el nombre de un componente (ej: TImage1), tal cual para poderlo usar en una función, es decir, no quiero pasar el valor de TImage, sino el el nombre "TImage" para poder usar sus propiedades .

No se si me explicado bien, es decir, al igual que pasamos paramatros de variables (int, AnsiString, etc.. ) poder pasar el nombre para usarlo, de esta forma da igual donde este y con el nombre que se cree, ya que en la funcion a la que mando su nombre se va ha usar con el nombre que yo le de.

Les pongo un codigo de ejemplo, que por supuesto no funciona ya que es inventado.

// -------------CODIGO FICTICIO DE LO QUE PREGUNTO COMO SE HARIA---------------

// Creo en el formulario principal un componente TImage que se llama ImgBarras y un TButon
			  //---------------------------------------------------------------------------




void Barras(AnsiString Dato, Componente Imagen) // Aqui el "Componente Imagen" es lo que no existe
												// Sobre eso es la pregunta miren el resto para que
											// me entiendan lo que quiero
{
	Imagen->Picture->LoadToFile(Dato); // ven lo que quiero decir, de esta forma usaria Imagen como
										// un componente sin tener nada que ver donde se creo
}
void __fastcall TFormPruebas::Button7Click(TObject *Sender)
{
	Barras("C:\\ ", ImgBarras); // Aqui supuestamente llamo a la funcion


}

Espero entiendan lo que quiero decir
Gracias antemano

[ecfisa]

Hola dandyuno, bienvenido a los foros de Club Delphi y como es costumbre con los ingresantes, te sugerimos leer nuestra guía de estilo.

Según entiendo de tu consulta, deberías declarar la función así:

Código PHP:

void barras(AnsiString dato, TImage* img) 
{
  img->Picture->LoadFromFile(dato);
  //...
} 


Ejemplo de uso:

Código PHP:

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  barras("C:\\Carpeta\\a.jpg", Image1);
  barras("C:\\Carpeta\\b.bmp", Image2);
  barras("C:\\Carpeta\\c.jpg", Image3);
} 


Saludos

[dandyuno]

Muchas gracias va de lujo, muchisimas gracias

[[AgustinOrtu]]

Solamente para que quede claro: Lo que estas pasando es una variable la cual es un puntero a un objeto. En este caso ese objeto es un TImage. Es por eso que podes acceder a sus metodos y propiedades

Ahora, el "nombre del componente" en realidad es Image1 (o el que le pongas desde el inpsector de objetos). Ese nombre lo podes obtener consultando la propiedad Name

[dandyuno]

Gracias de nuevo, el tema de los punteros no lo llevo muy bien, he leído sobre ello pero aún estoy muy verde al respecto.

[ecfisa]

Hola dandyuno.

Empezado por dandyuno

Gracias de nuevo, el tema de los punteros no lo llevo muy bien, he leído sobre ello pero aún estoy muy verde al respecto.

Una función puede recibir un parámetro por valor o por referencia.

Básicamente, cuando el argumento es pasado por valor, la función hace una copia local del mismo y trabaja sobre el, por lo tanto no se altera el contenido del objeto enviado. Cuando es pasado por referencia, la función recibe la dirección del argumento, el valor del mismo puede alterarse dentro de ella y no se pueden enviar constantes ni expresiones.

Código PHP:

// [1] por valor
int foo1(int v)
{
  v++;  // no altera valor
  return v;
}

// [2] puntero a la dirección (C/C++)
int foo2(int* v)
{
  v++;  // altera valor
  return *v;
}

// [3] referencia (C++)
int foo3(int& v)
{
  v++;  // altera valor
  return v;
}

// [4] referencia constante(C++)
int foo4(const int& v)
{
  v++;   // ¡¡ Error !!
  return v;
} 


En el caso de objetos de la VCL debes usar la forma [2].

Cuando no es necesario que se modifique el valor enviado como argumento es mas eficiente pasarlo como referencia constante [4] que no crea una copia local, con la seguridad adicional de no permitir la modificación involuntaria.

Buscando un poco encontré este apunte específico sobre: Funciones en C++ Builder

Saludos

[[AgustinOrtu]]

Empezado por ecfisa

Básicamente, cuando el argumento es pasado por valor, la función hace una copia local del mismo y trabaja sobre el, por lo tanto no se altera el contenido del objeto enviado

Es distinto C++ Builder a Delphi en este sentido?


Me costo sus dolores de c... pero creia que al fin lo habia entendido, de la forma mas bruta (experimentando)

Cuando se pasa un objeto siempre se pasa una referencia. Asi sea que le pongamos const, var o nada (notacion Object Pascal). Es decir estos 3 alteran el contenido del Caption de un TLabel

Código Delphi [-]
procedure Foo(const ALabel: TLabel);
begin
  ALabel.Caption := 'Hola';
end;

procedure Foo(ALabel: TLabel);
begin
  ALabel.Caption := 'Hola';
end;

procedure Foo(var ALabel: TLabel);
begin
  ALabel.Caption := 'Hola';
end;

Basicamente lo que se prohibe al usar const es el operador de asignacion ( := ). El resto no hay problema.

Es decir, por ejemplo una llamada FreeAndNil(ALabel) daria error de compilacion, ya que estaria asignando algo (NIL). Pero tranquilametne podria hacer un ALabel.Free

Distinto es el caso de los primitivos (integers, strings, booleans) que si funciona como indicas

[ecfisa]

Hola Agustín.

Empezado por AgustinOrtu

Es distinto C++ Builder a Delphi en este sentido?

En realidad cuando un parámetro es pasado por valor en Delphi, el valor es copiado en la pila y la función utiliza dicha copia

Cuando se pasa un objeto siempre se pasa una referencia.

Si, así es. Los objetos de Delphi en sí mismos son una referencia, si declararamos un parámetro como

Código Delphi [-]
...(var Value: TObject);

estaríamos declarando una referencia a referencia.

Pero, si hablamos de VCL existen diferencias entre ambos lenguajes. Debido que VCL está escrita en Delphi, C++ Builder debe compatibilizar con el estilo de referencia del primero, para lo cual usa los apuntadores como sustituto de ellas. (esto haciendo un resumen muy escueto )

Por ejemplo, en C++ Builder esta función y su llamado (a diferencia de Delphi) darían un error de compilación:

Código PHP:

void foo(TLabel lb)
{
  lb.Caption = "Hola";
}

...
{
   foo(Label1);
} 


Espero no haber complicado el tema con la variedad de ejemplos de mi mensaje anterior... Pero también aplican ya que C++ Builder se puede utilizar con STL.

Saludos

[[AgustinOrtu]]

Interesante, mas razones para no usar C++ Builder

[[escafandra]]

En realidad C++ tiene también referencias pero no se usan para la VCL. De hecho, muchas "traducciones" de API de Windows cambia punteros a referencias delphi lo que en ocasiones es positivo pero no en otras. Entonces, intrínsecamente pasar una variable por valor es pasar un simple puntero, el resto es pura sintaxis.

Cuentas veces nos hemos encontrado con una API declarada así:

Código Delphi [-]
 function APIFunc(hHandle: THANDLE; ...; var dwValue: DWORD): integer;

cuando en versión original debería ser:

Código Delphi [-]
 function (hHandle: THANDLE; ...; dwValue: PDWORD): integer;

Si no queremos pasar dwValue, deberemos declararla y pasarla:

Código Delphi [-]
var
  dwValue: DWORD;
begin  
  APIFunc(Handle, ..., dwValue);

Engorroso si en realidad no vamos a usar, porque no nos interesa dwValue...

O bien pasar una referencia nula:

Código Delphi [-]
begin
  APIFunc(Handle, ..., PDWORD(0)^);

Esto último nos ahorra una variable inútil pero hace difícil leer el código para neófitos...

¿No sería más fácil usar esto?:

Código Delphi [-]
begin
  APIFunc(Handle, ..., nil);

Pues en C es más fácil, en este caso las referencias sobran.

APIFunc(Handle, ..., 0);

Mayor motivo para usar la API en C/C++


Saludos.