una - Delphi: el método ''Crear'' oculta el método virtual de base, pero está justo ahí

qué es una función o método virtual

Question

Considere la jerarquía de objetos hipotéticos, comenzando con:

TFruit = class(TObject)
public
constructor Create(Color: TColor); virtual;
end;

y su descendiente:

TApple = class(TFruit)
public
constructor Create(); overload; virtual;
constructor Create(Color: TColor); overload; override; //deprecated. Calls other constructor - maintaining the virtual constructor chain
end;

La idea aquí es que he anulado al constructor virtual de la clase base, con una sobrecarga que también es virtual.

Delphi se queja:

El método ''Crear'' oculta el método virtual del tipo base ''TFruit''

Excepto que no lo oculta, ¡está ahí!

• Anulé el método virtual en el ancestro, y
• lo sobrecargué con otra versión

¿Cual es el trato?

Answer 1

Dos soluciones:

type
TFruit = class(TObject)
public
constructor Create(Color: TColor); virtual;
end;
TApple = class(TFruit)
public
constructor Create(); reintroduce; overload;
constructor Create(Color: TColor); overload; override;
end;

O:

type
TFruit = class(TObject)
public
constructor Create; overload; virtual; abstract;
constructor Create(Color: TColor); overload; virtual;
end;
TApple = class(TFruit)
public
constructor Create(); override;
constructor Create(Color: TColor); override;
end;

Answer 2

Esto parece ser un tipo de problema "que vino primero". (Parece que NGLN encontró una solución).

Hay otra solución, también. Puedes usar un parámetro por defecto:

interface
type
TFruit=class(TObject)
public
constructor Create(Color: TColor); virtual;
end;
TApple=class(TFruit)
public
constructor Create(Color: TColor = clRed); override;
end;
implementation
{ TFruit }
constructor TFruit.Create(Color: TColor);
begin
inherited Create;
end;
{ TApple }
constructor TApple.Create(Color: TColor);
begin
inherited;
end;
// Test code
var
AppleOne, AppleTwo: TApple;
begin
AppleOne := TApple.Create;
AppleTwo := TApple.Create(clGreen);
end;