Probe el código y funciona perfectamente para componentes pero lo necesito para objetos creados de clases hechas por mi.
Ejemplo:
Teniendo las siguientes clases
TPaciente = Class
Nombre : String;
end;
TMate = Class
TieneBombilla : boolean;
end;
Necesito algo asi:
function AsignarPropiedad(pObjeto : TObject; pPropiedad: String; pValor:TObject);
begin
pObjeto.pPropiedad := pValor; //eso como se hace????
end;
y correrlo de la siguiente forma:
begin
Mate := TMate.Create; //para mate
AsignarPropiedad(Mate, 'TieneBombilla', 0);
Pacietne := TPaciente.Create;
AsignarPropiedad(Paciente, 'Nombre', 'Pablito');
end;
Muchas gracias y los felicito por la calidad del soporte y la calidad de las respuestas.
Saludos!
