Ver Mensaje Individual
  #4  
Antiguo 07-01-2006
supermilloriver supermilloriver is offline
Miembro
 
Registrado: jul 2005
Posts: 32
Reputación: 0
supermilloriver Va por buen camino
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
Responder Con Cita