![]() |
![]() |
![]() |
![]() |
![]() |
FTP | ![]() |
![]() |
CCD | ![]() |
![]() |
Buscar | ![]() |
![]() |
Trucos | ![]() |
![]() |
Trabajo | ![]() |
![]() |
Foros | ![]() |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#4
|
|||
|
|||
repregunto a ver si se entiende
a ver si puedo ser mas claro y concreto, el tema es asi
tengo un metodo en la clase A procedure A.metodoA //es virtual begin //codigo para realizar la actividad 1 end; luego en una clase que hereda de A, llamemosle B tengo una redefinicion de metodoA: procedure B.metodoA //es override begin //codigo para realizar la actividad 2 end; bien ahora lo que yo quiero es que B.metodoA antes de hacer lo que le corresponda, invoque de alguna manera a A.metodoA para obtener la ejecucion: actividad 1 actividad 2 Como soluciones brutas habia pensado en: procedure B.metodoA //es override begin //codigo para realizar la actividad 1 //lo estoy repitiendo!!! //codigo para realizar la actividad 2 end; o Uses A; procedure B.metodoA //es override begin A.metodoA //codigo para realizar la actividad 2 end; pero no me parece un buen uso de la POO hacerlo de esta manera; lo que yo se es que en otros lenguajes yo podria hacer procedure B.metodoA //es override begin super; //aqui se ejecuta el metodo padre, o sea A.metodoA //codigo para realizar la actividad 2 end; pero en delphi no se si se puede; había pensado q inherited era equivalente a super, pero no me resultó... espero se haya entendido lo q quiero preguntar saludos a todos gabriel |
|
|
![]() |
|