Ver Mensaje Individual
  #5  
Antiguo 07-01-2006
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Reputación: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
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

Última edición por roman fecha: 07-01-2006 a las 01:21:31.
Responder Con Cita