Discussion :

[eponette]

Salut,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

constructor Create(AGrid: TFrmRootClass);virtual

Mes classes filles ont

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Et j'ai un warning

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

Comment enlever cela?

Merci

[MD Software]

ajoute reintroduce :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[eponette]

J'ai une erreur :

Field definition nat allowed after method or properies

sans avoir évidement de field après cela...

[MD Software]

mets reintroduce avant le override

[eponette]

Toujours la même erreur...

[MD Software]

Pardon, ça n'a rien à voir.
Tu doit avoir des attributs définis après tes méthodes.

[TicTacToe]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[eponette]

voici ma définition complete de classe

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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)

[MD Software]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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)

[eponette]

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

Comme cela

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Merci beaucoup