Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > OOP
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Coloboración Paypal con ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #8  
Antiguo 08-11-2006
Flecha Flecha is offline
Miembro
 
Registrado: nov 2006
Posts: 59
Poder: 20
Flecha Va por buen camino
Unhappy

Cita:
Empezado por Ñuño Martínez
Tiene que ver con la herencia. Sirve para "reintroducir" un método virtual como nuevo. Intentaré aclararlo con un ejemplo (a ver si me sale, que lo estoy haciendo de memorieta):


Código Delphi [-]
TYPE
  TBASE = CLASS (TOBJECT)
  PUBLIC
    PROCEDURE Procedimiento; VIRTUAL;
  END;
 
  TDERIVADA1 = CLASS (TBASE)
  PUBLIC
    PROCEDURE Procedimiento; OVERRIDE;
  END;
 
  TDERIVADA2 = CLASS (TBASE)
  PUBLIC
    PROCEDURE Procedimiento; REINTRODUCE;
  END;



Tenemos el método virtual Procedimiento, el cual es heredado por las dos clases derivadas. Una de ellas la implementa de nuevo (OVERRIDE) mientras que la otra la "reintroduce" de forma que tiene dos métodos con el nombre "Procedimiento". No es lo mismo que OVERLOAD, ojo.

La cosa está en lo siguiente:


Código Delphi [-]
PROCEDURE Uso (aObjeto1: TBASE, aObjeto2: TDERIVADA2);
BEGIN
  aObjeto1.Procedimiento;
  aObjeto2.Procedimiento;
END;
 
VAR
  ElObjeto: TDERIVADA2;
BEGIN
  ElObjeto = TDERIVADA2.Create;
  Uso (ElObjeto, ElObjeto);
  ElObjeto.Free;
END



En la primera línea llamamos al procedimiento virtual de la clase TBASE, que en tiempo de ejecución puede ser tanto la definida para TBASE como la definida para TDERIVADA1.

En la segunda línea llamamos al procedimiento "reintroducido" por la clase TDERIVADA2.

Espero que haya aclarado las cosas en lugar de liarlas más.
Perdona pero sigo sin entender la diferencia entre REINTRODUCE y OVERRIDE.

En el ejemplo que pones, se obtiene el mismo resultado si ElObjeto es del tipo TDerivada1 (que hereda con OVERRIDE) o si es TDerivada2 (que hereda con REINTRODUCE), porque siempre se puede hacer casting sobre un "hijo" haciéndolo pasar por su "padre": TClasePadre(TClaseHija).

Tanto con OVERRIDE como con REINTRODUCE se sobre-escribe el código fuente de métodos heredados. Dicha sobre-escritura se realiza dentro del objeto "hijo", sin destruir el código original del padre. El cual, siempre es accesible desde el "hijo" si se hace uso de INHERITED.

La úncia diferencia que conozco es que con OVERRIDE el compilador lanza en ocasiones algunos mensajes de aviso que no son lanzados si se usa REINTRODUCE. Mi gran duda es ¿existe alguna diferencia más aparte de esos mensajes de aviso en la compilación? ¿Acaso REINTRODUCE sólo vale para no hacernos daño a la vista con esos mensajes de compilación? ¿A qué nos arriesgamos exactamente haciendo caso omiso de dichos mensajes?

Muchas gracias.
Responder Con Cita
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Duda con argumentos por consola friendspark OOP 2 14-11-2005 17:57:30
Udf y argumentos rastafarey Firebird e Interbase 2 29-07-2005 21:12:44
Error en FormCreate darkerbyte OOP 5 29-03-2005 17:42:43
¿Como recuperar los argumentos de un ejecutable? dim Varios 2 20-05-2004 11:58:17
Argumentos en procedimientos Carlitos Firebird e Interbase 3 06-03-2004 11:34:19


La franja horaria es GMT +2. Ahora son las 08:07:33.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi