herencia de metodos

[supermilloriver]

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

[roman]

Código Delphi [-]
type
  A = class
    procedure metodoA; virtual;
  end;

  B= class(A)
    procedure metodoA; override;
  end;

implementation

procedure A.metodoA;
begin
  // atividad 1
end;

procedure B.metodoA;
begin
  inherited; // aquí se realiza actividad 1

  // actividad 2
end;

end.

EDITO:

Por cierto, ya Al González te indicó que inherited es correcto y te pedi que pusieras el mensaje de error completo y la forma exacta en que llamas a inherited y nada de eso pusiste aquí y te limitaste a decir "pero no resultó...". Esto no ayuda a que podamos ayudarte.

// Saludos

[dec]

Hola,

Estoy de acuerdo con Román. De hecho estuve haciendo unas pruebas al respecto de lo que nos ocupa y Román se me adelantó en la respuesta. Ciertamente faltaba información y en tu segundo mensaje sigue faltando. En las pruebas que llevé a cabo podía hacer uso de "inherited" sin problemas, siempre y cuando los métodos fueran "protegidos" ("protected") o "públicos" ("public" o "published").

Si el método "virtual", en este caso, fuera "privado" de la clase "A" no podría hacerse uso de "inherited" a no ser (esto es una particularidad de Delphi) ambas clases estuvieran implementadas en la misma unidad, lo cual parece que no es el caso, puesto que ambas clases son "formularios".

Así que, eso es lo que iba a decir cuando se me adelantó Román pidiendo más información, la cual, efectivamente, faltaba y aun falta para mejor ayudarte, puesto que si fuéramos adivinos otro gallo cantaría, como suele decirse.

[roman]

Empezado por dec

Si el método "virtual", en este caso, fuera "privado" de la clase "A" no podría hacerse uso de "inherited" a no ser (esto es una particularidad de Delphi) ambas clases estuvieran implementadas en la misma unidad

Muy cierto, es el único caso (en la sección private y distinta unidad) que me viene a la mente en donde inherited no funcionaría. Pero en tal caso, el mensaje de error sería:

Method 'metodoA' not found in base class

Nada que ver con un "error de tipos" como se señaló al principio del hilo, así que por ello seguimos sin saber cuál puede ser el problema. Da la impresión de que el error está en otra parte y no tiene que ver con inherited.

// Saludos

[Athanatos]

Finalmente, como va bien en este tema: Mucho cuidado si es el destructor y lo declaras private y luego intentas llamar al destructor padre desde el destructor de una clase que herede de la anterior, por que entonces no te saldra mensaje de error (depende de la version, creo que en las actuales te sale un warning) y el destructor del padre que esta como "private" no sera ejecutado. Por la forma en que reserva memoria delphi no tendras un "memory leak" al terminar de ejecutarse tu programa, asi que lo anterior es especialmente importante si tu aplicacion funciona las 24horas como por ejemplo un servidor de algo.