Pasar Nombre de componenete como parametro de una funcion

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