Cita:
|
Empezado por senda
¿Para que sirve esa instrucción reintroduce?
|
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.