Delphi - OBJETO DENTRO DE OTRO OBJETO

   
Vista:

OBJETO DENTRO DE OTRO OBJETO

Publicado por Mariano (46 intervenciones) el 05/08/2008 12:28:05
Hola a todos:

Estoy desarrollando una aplicación, donde necesito tener un objeto dentro de otro. Lo he implementado de la siguiente forma:

He creado un objeto "principal", con sus variables y métodos, y he añadido una variable tipo puntero dentro del objeto principal, que apunta al otro tipo de objeto. Gráficamente, he implementado lo siguiente:

// ---------------------------------
ClaseB= Class
VariableX:...
VariableY: ...
...
Procedure A...
...
End; // ClaseB

ClaseA= Class
Variable1: ...
Variable2: ...
...................
VariableN: ^ClaseB;

Procedure1...
Procedure2...
end;
// ---------------------------------

El problema que me encuentro es que intento inicializar B dentro de un procedimiento de A, de la forma:

// ---------------------------------
Procedure A.Create
begin
...
VariableN:= @ClaseB.Create;

{*}VariableN^.Inicializar; // Esta sentencia me da error

end;
// ---------------------------------

La sentencia marcada con {*} me da error y no sé por qué. Creo que sintácticamente es correcto, pero no sé qué es lo que sucede.
Por supuesto que tengo definida la función "B.Inicializar"

Os agradecería vuestra ayuda.

Muchas gracias por adelantado.
Un saludo.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:OBJETO DENTRO DE OTRO OBJETO

Publicado por M@rceloL (43 intervenciones) el 05/08/2008 16:45:39
Las variables declaradas como clases ya son punteros.

Creo que ahí está la cuestión. Yo sacaría el ^ de todo el asunto.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:OBJETO DENTRO DE OTRO OBJETO

Publicado por Mariano (46 intervenciones) el 06/08/2008 14:57:17
Gracias por tu sugerencia M@rceloL. Voy a darle vueltas al asunto.

Un saludo.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar