objet, redefinir un constructeur

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:

---

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

---

celui du slalom

Code:

---

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

---

et celui de la descente

Code:

---

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:

---

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!

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.

cela ne marche pas mieu :cry:

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:

---

TCourse.NouvelleCourse...

---

?

@+.

Bonjour,

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

Code:

---

1 2 3 4 5 6 7

type Tcourse = class(Tobject) ... Slalom = class(Tcourse) ... Descente = class(Tcourse) ... ...

---

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