Ver Mensaje Individual
  #22  
Antiguo 08-11-2006
Avatar de Ñuño Martínez
Ñuño Martínez Ñuño Martínez is offline
Moderador
 
Registrado: jul 2006
Ubicación: Ciudad Catedral, Españistán
Posts: 6.025
Reputación: 27
Ñuño Martínez Tiene un aura espectacularÑuño Martínez Tiene un aura espectacular
Pues sí, la verdad es que el ejemplo que puse es muy poco afortunado. Intenté simplificarlo y lo simplifiqué tanto que me pasé. Intentaré explicarlo mejor:

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

PROCEDURE Uso (aObjeto: TBASE);
BEGIN
  aObjeto.Procedimiento;
END;
 
VAR
  ElObjeto: TBASE;
BEGIN
  ElObjeto = TDERIVADA.Create;
  ElObjeto.Procedimiento;
  Uso (ElObjeto);
  ElObjeto.Free;
END
En este ejemplo, dentro como fuera del procedimiento Uso se llama al método Procedimiento definido en la clase TDERIVADA. Esto es porque en TDERIVADA existe un único método con el nombre Procedimiento. Si no entiendes porqué, deja de leer y busca una explicación sobre la herencia y programación orientada a objetos.

En otro caso, seguimos con otro ejemplo:
Código Delphi [-]
TYPE
  TBASE = CLASS (TOBJECT)
  PUBLIC
    PROCEDURE Procedimiento; VIRTUAL;
  END;
 
  TDERIVADA = CLASS (TBASE)
  PUBLIC
    PROCEDURE Procedimiento; REINTRODUCE;
  END;

PROCEDURE Uso (aObjeto: TBASE);
BEGIN
  aObjeto.Procedimiento;
END;
 
VAR
  ElObjeto: TBASE;
BEGIN
  ElObjeto = TDERIVADA.Create;
  ElObjeto.Procedimiento;
  Uso (ElObjeto);
  ElObjeto.Free;
END
En este segundo ejemplo, fuera del procedimiento Uso llama al método Procedimiento definido en la clase TDERIVADA mientras que dentro de Uso llama al definido en TBASE a pesar de que el objeto es de clase TDERIVADA. Esto es porque en TDERIVADA existen 2 métodos con el nombre Procedimiento: El heredado de TBASE y el re-definido (es decir, "re-introducido") en TDERIVADA.

Si no entiendes cuándo utilizar REINTRODUCE u OVERRIDE, entonces deberías utilizar siempre OVERRIDE y, si el compilador muestra algún error, estudiar el porqué aparece el error y solucionarlo (sin utilizar REINTRODUCE, se entiende).

[edit]Cambié un poco los ejemplos para que fuera más claro (o eso creo )

Última edición por Ñuño Martínez fecha: 08-11-2006 a las 10:39:48.
Responder Con Cita