Foros Club Delphi - argumentos FormCreate

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)

- - argumentos FormCreate (https://www.clubdelphi.com/foros/showthread.php?t=35958)

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.

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 :confused: )

Hola,

Quisiera enfatizar que no se trata de entender la diferencia entre override y reintroduce, sino de entender que son conceptos totalmente disímiles e incluso opuestos.

Los métodos virtuales y la directiva override, es el mecanismo que utiliza Delphi para implementar el polimorfismo. Omitir la directiva override, significa romper el polimorfismo, se define un método con el mismo nombre que el de una clase ancestra pero que no tiene nada que ver con aquél.

Dado que hacer esto- romper el polimorfismo -es algo inusual y poco recomendado, el compilador de Delphi nos lo advierte. La directiva reintroduce no tiene ninguna utilidad excepto la informativa: indica al compilador (y a quien lea el código fuente) que eso- romper el polimorfismo -es nuestra intención, que estamos conscientes de la barbaridad que estamos haciendo, que nuestras razones tenemos para ello y que deje de protestar (el compilador y quien lea el código fuente).

El método reintroducido, ciertamente puede usar inherited, pero ya no puedes llamarlo polimórficamente.

// Saludos

Muchísimas gracias. Ya lo tengo claro. :)

Tal como sospechaba, REINTRODUCE sólo vale para que el compilador no nos "moleste" con mensajes de advertencia de ruptura polimórfica voluntaria.