Pasar Nombre de componenete como parametro de una funcion

[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.