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;
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;