Ver Mensaje Individual
  #10  
Antiguo 05-03-2007
AFilth AFilth is offline
Miembro
 
Registrado: ago 2005
Posts: 119
Reputación: 19
AFilth Va por buen camino
Bueno, os sigo contando...

Hemos quedado de esta forma:

Tengo mi bpl dinámica con la ClaseB. En esta unidad en el inicialization hago un:

RegisterClass(ClaseB);

Vale, hasta ahí parece que bien pero luego desde donde quiero acceder a la propiedad de esa ClaseB (Es otra unidad en la cual cargue dinámicamente la bpl de la ClaseB) hago lo siguiente:

Código Delphi [-]
var
  AClass: TPersistentClass;
  FAux: int64;
begin
  AClass := GetClass('ClaseB');
  FAux := GetInt64Prop(ObjetoDeClaseA, 'PropiedadDeClaseB');

Esto me devuelve una excepción de que no ha encontrado esa propiedad. Supongo que es lógico ya que yo le estoy pasando un Objeto que aunque en realidad es de la ClaseB, Delphi lo interpreta como que es de la ClaseA.

Por ello creaía que me bastaría con hacer algo de tipo:
Código Delphi [-]
FAux := GetInt64Prop(ObjetoDeClaseA As AClass, 'PropiedadDeClaseB');

Una especie de cast para que el Delphi supiese que el objeto en realidad es de la ClaseB pero eso no funciona...

De momento vuelvo a estar sin ideas...

Un saludo.
Responder Con Cita