Discussion :

[akabane]

Bonjour,

Pour un projet, j'ai besoin d'étendre une classe delphi (TComPort en l'occurence) afin de répondre à mes besoins. J'utilise donc la clause override sur le constructeur de ma classe. Ensuite je voudrais surcharger ce constructeur afin qu'il prenne en compte les extentions apportés.

J'utilise donc le code suivant :

Code :

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

1
2
3
4
5
6
7
 
type
  TComPortAT = class(TComPort)
 
public
    constructor Create(AOwner: TComponent); overload; override;
    constructor Create(AOwner: TComponent; dt: longint; dr: integer); overload;

qui me fournit le warning suivant sur le 2ème constructeur :

Code :

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

1
2
 
[Avertissement] ComPortAT.pas(24): W1010 La méthode 'Create' cache la méthode virtuelle du type de base 'TCustomComPort'

Quelqu'un aurait des explications sur ce warning ? ou quelle syntaxe adopter afin de ne pas l'avoir ?

[Fabrice ROUXEL 1]

Code :

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

1
2
3
constructor Create(AOwner: TComponent);overload;override; 
constructor Create(AOwner: TComponent; dt: longint; dr: integer);reintroduce;overload;

Code :

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

1
2
3
4
5
constructor TComPortAT.Create(AOwner: TComponent);
begin
  inherited;
 -----

[TicTacToe]

Ca fait pas de warning ce nouveau code ?
du fait que la méthode create aux paramétres initiaux n'a pas d'override ?

est-ce qu'il ne serait pas suffisant de redeclarer uniquement le create avec un re-introduce, puis un override dans ce style:

Code :

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

1
2
3
4
5
 type
  TComPortAT = class(TComPort)
 
public
    constructor Create(AOwner: TComponent; dt: longint; dr: integer); reintroduce; override;

puis

Code :

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

1
2
3
4
5
 constructor MaForm.Create(AOwner: TComponent; dt: longint; dr: integer);
begin
  inherited create( AOwner); 
  ...
end

J'ai pas testé mais c'est ce qui me parait logique
1. on redefinit la méthode create avec des paramatres supplémentaire
2. on la surcharge par rapport à l'ancetre
3. le inherited tient compte des ancien params

NON testés, il y a surement des réglages syntaxiques à faire

[Fabrice ROUXEL 1]

Aucun warning!
Je viens de corriger.

Ton nouveau code ne convient pas.
Il souhaite surcharger le constructor hérité et proposer un 2ème constructeur
avec des paramètres différents.

[akabane]

Merci à vous 2 !
L'usage de la directive reintroduce (que je ne connaissais pas) a permis de résoudre mon problème.

[TicTacToe]

comme quoi

@Fabrice
mais dans ton create overloadé il faut soit faire

- "create( AOwner )"

- soit "inherited Create( AOwner )"

pour garder une bonne init.
Le 1er cas est le mieux, car on peut placer du code dans le create non overloadé et permet de faire une init "standard" sans les param supplémentaires.

Si aucun code n'est dans le create non overloadé, et que le code que j'ai posté fonctionne (à tester), c'est peut être plus logique de ne pas overloader le create et de ne garder qu'un Create (avec les param supplémentaire).

Qu'en pense tu ?

:EDIT:
J'ai lu ta correction après mon post
tu as donc choisis le 2eme cas

ET tu as ajouté le override au create non overloadé (c'est a ceci que je pensais pour le warning )