argumentos FormCreate

[Ñuño Martínez]

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.