Discussion :

[adrix26]

Salut tt le monde, voila j'ai une super classe "Course" et 2 sous classe "Slalom" et "descente"

dans les 3 classe j'ai unNum, unLieu, unVainqueur

Dans la sous classe "slalom" je veut rajouter nbPortes

et dans la sous classe "descente" je veut rajouter distance

:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

voici l'interface du costructeur de la superclasse

Code :

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

constructor nouvelleCourse(unNumCourse : integer; unTypeCourse : string; unVainqueur : string; unNomStation : string; uneDateCourse : string); virtual;

celui du slalom

Code :

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

constructor nouvelleCourse(unNumCourse : integer; unTypeCourse : string; unVainqueur : string; unNomStation : string; uneDateCourse : string; unNbPortes : integer); override;

et celui de la descente

Code :

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

constructor nouvelleCourse(unNumCourse : integer; unTypeCourse : string; unVainqueur : string; unNomStation : string; uneDateCourse : string; uneDistance : integer); override;

et dans l'implementation de la sous classe slalom j'ai fais comme ceci

Code :

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

1
2
3
4
begin
 inherited nouvelleCourse(unNumCourse, unTypeCourse, unVainqueur, unNomStation, uneDateCourse);
 nbPortes := unNbPortes;
 end;

Mais malheureusement cela ne marche pas delphi me dit que la méthode "nouvelleCourse" n'est pas trouvé ds la classe de base.

Je n'arrive plus à avancer pourriez vous m'aider svp!

[pinson]

C'est un constructeur, ne met pas de virtual et d'override, ne met rien. S'il te demande qques choses c'est un overload que tu mets dans ce cas.

virtual et override -> permet une surcharge d'une fonction ou procedure
overload -> permet de redéfinir une fonction ou procedure du même nom mais pas avec les mêmes arguments.

[adrix26]

cela ne marche pas mieu

[PadawanDuDelphi]

Bonjour,

Il semblerait que taon constucteur ne soit pas déclaré.
Est-tu sur d'avoir declare ton constructor dans Public? Et d'avoir ectrit:

Code :

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

TCourse.NouvelleCourse...

?

@+.

[Graffito]

Bonjour,

Apparament, ce que tu appelles superclasse est en fait la classe de base. Slalom et Descente doivent en hériter :

Code :

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

1
2
3
4
5
6
7
type 
  Tcourse = class(Tobject) 
   ...
   Slalom = class(Tcourse) 
   ...
   Descente = class(Tcourse) ...
   ...

[adrix26]

merci Graffito et les autres j'avais oublié "Slalom = class(Tcourse) " quel étourdi