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
|