Discussion :

[sapin]

Bonjour,
un topic un peu similaire à celui ci :

http://www.developpez.net/forums/sho...ht=reintroduce

je fait un nouveau composant qui herite de TComponent, et je voudrai surcharger le constructeur.
Je me trouve face au meme warning si je n'utilise pas la directive "reintroduce".

W1010 La méthode 'Create' cache la méthode virtuelle du type de base 'TMonComposant'

Je voudrai avoir plus d'info sur cette directive car j'ai lu qu'elle

"surcharge et réintroduit des paramètres différents de la méthode de son ancêtre "

Est ce que ca ne risque pas de posser probleme si quelqu'un veut utilisé le constructeur de TComponent ???

Merci

[ShaiLeTroll]

C'est une nouveaute de Delphi 6, je crois, ... assez utile, elle permet que l'on évite d'appeller directement le constructeur de notre objet ... bon, c'est vrai si l'on a de la chance ...

j'ai énormément de reintroduce, en particulier sur le Create de Form auxquelles je passe des objets comme paramètres ... car j'oblige le passage de paramètre, ...

Si tu veux laisser accès au constrcuteur ancêtre, tu dois le redéclarer en overload; override; ...

J'avoue que je n'ai pas tout compris, j'ai accès au constructeur ancêtre alors que je pensais avoir fait ce qu'il fallait pour que l'on y est pas ...

Si un connaisseur pouvait expliquer le reintroduce SVP !

[sapin]

Je ne comprend pas trop ce que ca fait non plus.
La simple utilisation d'overload suffit pour surcharger mon constructeur, mais genere ce warning.
Je me sent moi seul merci

[tourlourou]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
type
 TClicheInfos=class
   private
     FWidth: integer;
     FHeight: integer;
   public
     constructor Create; overload;
   property Width: integer read FWidth;
   property Height: integer read FHeight;
 end;
 TJpegInfos=class(TClicheInfos)
   public
     constructor Create(AName: string; AStream: TMemoryStream; AGraph : TGraphic); reintroduce; overload;
 end;

dans ce code, la directive reintroduce me sert justement à masquer le Create de l'ancêtre car je ne veux pas qu'un utilisateur appelle TClicheInfos.Create chez un descendant

idem dans ce code, où je cache le TObject.Create :

Code :

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

1
2
3
4
5
6
7
type
  TdyJpegCliche=class     
    private
      FFileName: string;        // nom complet
      FInfos: TClicheInfos;     // infos relatives au cliché
    public
      constructor Create(AFileName : string; APict : TPicture; ABmp32: TBitmap32); reintroduce; overload;

[Cl@udius]

A part masquer le warning à la compilation:

La méthode Bidule cache la méthode virtuelle de la classe de base TMaClasseDeBase

je n'y vois personnellement aucune autre utilité.

@+

[Franck SORIANO]

C'est une nouveaute de Delphi 6, je crois, ... assez utile, elle permet que l'on évite d'appeller directement le constructeur de notre objet

Non ce n'est pas possible ! Une fois qu'un membre a été déclaré publique dans un objet, il n'est pas possible d'en interdire l'accès dans les classes dérivées. C'est la même chose pour un constructeur virtuelle.

Prenons un petit exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
type 
  TComponentClass = class of TComponent;
  TMonEdit = class(TComponent);
 
var ComponentClass : TComponentClass;
    Cmp : TComponent;
 
begin
  ComponentClass := TMonEdit;
  Cmp := ComponentClass.Create(nil);

Peu importe ce qu'on met dans TMonEdit, on ne pourra jamais interdire le code précédent de compiler et de s'exécuter. C'est même d'ailleur la seule utilité que je vois aux constructeurs virtuelles.

Le reintroduce sert uniquement à supprimer le warning lorsqu'on définit une méthode non virtuelle qui porte le même nom qu'une méthode virtuelle des classes ancêtre. Sa sert à dire au compilateur : "ta gueule, c'est moi qui code, je sais ce que je fait".

Petit extrait de l'aide en ligne :

Reintroduce

La directive reintroduce supprime les avertissements du compilateur informant qu'une méthode virtuelle précédemment déclarée est masquée. Par exemple,

Code :

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

 procedure DoSomething; reintroduce;   // la classe ancêtre a aussi une méthode DoSomething

Utilisez reintroduce quand vous voulez masquer une méthode virtuelle héritée avec une nouvelle méthode.

[sapin]

Quel est l'interet du warning alors si quelque chose a était concu pour le virer ?

[Franck SORIANO]

Quel est l'interet du warning alors si quelque chose a était concu pour le virer ?

De t'avertir pour le cas où tu aurais tout simplement oublié de mettre un override...

Ou encore si n'a pas fait attention qu'il existe déjà une méthode avec le même nom dans la classe de base.

[sapin]

ok, et donc du moment où l'on est conscient de ce que l'on fait, on rajoute la directive reintroduce.
Merci

[Linkin]

Je ne suis pas d'accord ou j'ai mal compris ce qui a été dit), j'ai un constructeur (pour une form) de ce type:

Code :

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

1
2
 
    constructor Create(AOwner : TComponent; pParent : TWinControl; pUtilisateur : TUtilisateur); reintroduce;

Et je ne ne peux pas appelre le constructeur "de base" Create(AOwner:TComponent).

J'utilise Delphi 7

[tourlourou]

pour moi, le reintroduce sert à masquer (empêcher l'accès à) une méthode ancestrale dans un descendant pris comme tel ; ce qui n'empêche pas l'accès quand il est pris comme ancêtre (cf exemple de Franck SORIANO)

il élimine aussi le warning, qui nous prévenait de l'homonymie, puisqu'on signale que c'était volontaire

et la directive existe déjà en D5 (avant ?)

[ShaiLeTroll]

Non ce n'est pas possible ! Une fois qu'un membre a été déclaré publique dans un objet, il n'est pas possible d'en interdire l'accès dans les classes dérivées. C'est la même chose pour un constructeur virtuelle.

C'est bien mon problème pour comprendre, parfois ça cache, reintroduce SANS overload, ... et parfois cela ne cache pas, en fait, je n'ai pas tout compris comme je le disais, ... alors je surcharge aussi le constructeur sans paramètre, j'y glisse le déclenchement d'une exception genre ENotAllowedConstructor ...

Et donc bien vu, si je fait le code suivant, j'ai une erreur de compilation

Code :

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

Instance := TMaClasseDerive.Create(Owner)

Et bien, vu mon problème était de masqué le Create lorsque l'on passe via une Référence de Classe ... bien vu, ... mais bon cela reste pas primordiale, il suffit de documenter ses objets en espérant que les docs seront lu ...

A part masquer le warning à la compilation:

je n'y vois personnellement aucune autre utilité.

@+

lol, je n'ai pas osé le dire, mais ... c'est ce que je pensais aussi ...

[Linkin]

Je viens de relire et jai compris. Merci.