Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Otros entornos y lenguajes > C++ Builder
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 06-09-2015
dandyuno dandyuno is offline
Miembro
NULL
 
Registrado: sep 2015
Posts: 18
Poder: 0
dandyuno Va por buen camino
Pasar Nombre de componenete como parametro de una funcion

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.

Código:
// -------------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

Última edición por dec fecha: 06-09-2015 a las 16:11:23. Razón: Poner etiquetas CODE
Responder Con Cita
  #2  
Antiguo 06-09-2015
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Poder: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
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 datoTImageimg
{
  
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
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita
  #3  
Antiguo 06-09-2015
dandyuno dandyuno is offline
Miembro
NULL
 
Registrado: sep 2015
Posts: 18
Poder: 0
dandyuno Va por buen camino
Muchas gracias va de lujo, muchisimas gracias
Responder Con Cita
  #4  
Antiguo 07-09-2015
Avatar de AgustinOrtu
[AgustinOrtu] AgustinOrtu is offline
Miembro Premium
NULL
 
Registrado: ago 2013
Ubicación: Argentina
Posts: 1.858
Poder: 16
AgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en bruto
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
Responder Con Cita
  #5  
Antiguo 07-09-2015
dandyuno dandyuno is offline
Miembro
NULL
 
Registrado: sep 2015
Posts: 18
Poder: 0
dandyuno Va por buen camino
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.
Responder Con Cita
  #6  
Antiguo 07-09-2015
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Poder: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola dandyuno.
Cita:
Empezado por dandyuno Ver Mensaje
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(intv)
{
  
v++;  // altera valor
  
return *v;
}

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

// [4] referencia constante(C++)
int foo4(const intv)
{
  
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
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....

Última edición por ecfisa fecha: 07-09-2015 a las 15:38:45. Razón: agregar comentarios
Responder Con Cita
  #7  
Antiguo 07-09-2015
Avatar de AgustinOrtu
[AgustinOrtu] AgustinOrtu is offline
Miembro Premium
NULL
 
Registrado: ago 2013
Ubicación: Argentina
Posts: 1.858
Poder: 16
AgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en bruto
Cita:
Empezado por ecfisa Ver Mensaje
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
Responder Con Cita
  #8  
Antiguo 07-09-2015
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Poder: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola Agustín.
Cita:
Empezado por AgustinOrtu Ver Mensaje
Cita:
Empezado por ecfisa Ver Mensaje
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?
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

Cita:
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
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....

Última edición por ecfisa fecha: 07-09-2015 a las 19:48:33.
Responder Con Cita
  #9  
Antiguo 07-09-2015
Avatar de AgustinOrtu
[AgustinOrtu] AgustinOrtu is offline
Miembro Premium
NULL
 
Registrado: ago 2013
Ubicación: Argentina
Posts: 1.858
Poder: 16
AgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en bruto
Interesante, mas razones para no usar C++ Builder
Responder Con Cita
  #10  
Antiguo 08-09-2015
Avatar de escafandra
[escafandra] escafandra is offline
Miembro Premium
 
Registrado: nov 2007
Posts: 2.202
Poder: 20
escafandra Tiene un aura espectacularescafandra Tiene un aura espectacular
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.
Código:
APIFunc(Handle, ..., 0);

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


Saludos.
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
pasar nombre de tabla como parametro a procedimiento almacenado Matorral MySQL 0 17-12-2013 17:53:14
pasar el nombre de una forma como parametro Willo Varios 7 11-03-2009 00:17:05
pasar como parámetro nombre de un componente joanajj Varios 3 04-07-2007 23:25:49
Pasar como parametro el where en una funcion cso2000 MS SQL Server 2 15-02-2005 03:49:47
pasar el nombre de una tabla en un parametro saul saldaña Firebird e Interbase 2 11-06-2004 21:05:55


La franja horaria es GMT +2. Ahora son las 01:56:32.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi