[OO] override overload

Version imprimable

10/02/2006, 13h57
eponette

[OO] override overload
Salut,

j'ai une classe de base (TRoot) qui a un create

Code:

constructor Create(AGrid: TFrmRootClass);virtual

Mes classes filles ont

Code:

constructor Create(AGrid: TFrmRootClass); override;

OK

Mais une de mes filles doit pouvoir être crée sans TFrmRootClass. Donc j'ai fait (au niveau de la fille)
Code:

1 2 constructor Create(AGrid: TFrmRootClass); overload; override; constructor Create; overload;
Et j'ai un warning

Citation:

Method 'Create' hides virtual method of base type 'root'

Comment enlever cela?

Merci

ajoute reintroduce :

Code:

1
2
constructor Create(AGrid: TFrmRootClass); overload; override; reintroduce;
constructor Create; overload; reintroduce;

10/02/2006, 14h22
eponette

J'ai une erreur :

Citation:

Field definition nat allowed after method or properies

sans avoir évidement de field après cela... :?
10/02/2006, 14h26
MD Software

mets reintroduce avant le override
10/02/2006, 14h41
eponette

Toujours la même erreur... :?
10/02/2006, 14h44
MD Software

Pardon, ça n'a rien à voir.
Tu doit avoir des attributs définis après tes méthodes.
10/02/2006, 14h57
TicTacToe

tu peux peut-être palier à ca avec AGrid optionnel
style

Code:

constructor Create(AGrid: TFrmRootClass = nil);virtual

ainsi que dans les classes fille.
Il faut gérer si c'est nil ou pas après...

J'admet que c'est pas très joli comme solution mais ca devrait fonctionner si l'autre solution ne marche pas.

le reintroduce de MDSoftware est mieux je pense, et plus logique.
mais j'ai jamais eu besoin de l'utiliser alors...

F1 sur reintroduce et je pense que tu trouveras la solution.

voici ma définition complete de classe

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
TChambre = class(TRoot)
  private
    FTypeChambre: TTypeChambre;
    FHotelID: Integer;
  public
    property TypeChambre: TTypeChambre read FTypeChambre;
    constructor Create(AGrid: TFrmRootClass); overload; reintroduce; override;
    constructor Create; overload; reintroduce;
    destructor Destroy; override;
    procedure SupprimerChambre;
    procedure EditChambre;
    procedure AjoutChambre;
    function HotelChambre(ChambreID: Integer): Integer;
    procedure FiltreParHotel(HotelID: Integer; const HotelName: String);
  end;

et j'ai l'erreur au premier constructeur (D2005 Patch 2)

Je regrette de ne pas avoir Delphi sous la main. Tente ça :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
TChambre = class(TRoot)
  private
    FTypeChambre: TTypeChambre;
    FHotelID: Integer;
  public
    property TypeChambre: TTypeChambre read FTypeChambre;
    constructor Create(AGrid: TFrmRootClass); overload; override;
    constructor Create; overload; reintroduce;
    destructor Destroy; override;
    procedure SupprimerChambre;
    procedure EditChambre;
    procedure AjoutChambre;
    function HotelChambre(ChambreID: Integer): Integer;
    procedure FiltreParHotel(HotelID: Integer; const HotelName: String);
  end;

(retrait du premier reintroduce)

Avec le reintroduce après le overload, cela fonctionne...

Comme cela
Code:

1 2 constructor Create(AGrid: TFrmRootClass); overload; override; constructor Create; reintroduce; overload;
Merci beaucoup