Foros Club Delphi - Pasar punteros a objentos en un procedimiento

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Pasar punteros a objentos en un procedimiento (https://www.clubdelphi.com/foros/showthread.php?t=238)

Pasar punteros a objentos en un procedimiento

Hola amigos, soy nuevo en este foro y un principiante en el lenguaje de programación.
Me podría decir alguíen si se puede pasar en un procedimiento un puntero a un objeto (Label, Shape,...) para poder modificar el objeto dentro del procedimiento.
Si es posible ¿Como se debe declarar ?

Graciasconfused:

mas o menos seria una cosa asi

* Llamada -> pasamos un TLabel y un TEdit

Código:

 

begin

     Actualizar(Label1, Edit5);

end;

* declaracion -> recibimos el TLabel y el TEdit

Código:

procedure Actualizar(L : TLabel; E . TEdit);

begin

     L.Caption := 'Nuevo caption';

     E.Text := 'Nuevo texto';

end;

En delphi, cuando se pasa un objeto por parametro, siempre se esta pasando un puntero a el, por lo tanto, si modificas cualquier propiedad dentro del procedimiento Actualizar, seguira estando al salir de el.

Bueno, espero que te sirva

Bien, básicamente es que toda "variable" objeto es, en realidad, una referencia a objeto.

Vamos:
var
MiSuperObjeto: TMiSuperObjeto;

Sería "como" poner
var
MiSuperObjeto: ^TMiSuperObjeto;

Son siempre punteros a objeto, mientras que el resto de tipos "primitivos" (real, entero, etc...), son el contenedor de un valor del tipo (vamos tienes la referencia y el espacio de memoria asociado).

De ahí viene que si no se le asigna un objeto a la variable, en realidad no estés apuntando a algún sitio valido.

Usea:

var
MiSuperObjeto: TMiSuperObjeto;
begin
MiSuperObject.SuperMetodo; // lanzará una violación en masa de los bits pares de la cpu.

Luego, si haces lo que cadetill indica, siempre pasas una referencia al objeto (y por lo tanto, operarás, realmente, con ese objeto).