Comment corriger : An inherited method is hidden by "destructor xyz;" ?

Bonjour,

Savez-vous comment remédier à ce message :

Citation:

---

Warning: An inherited method is hidden by "destructor TAcars.Destroy;"

---

Code:

---

1 2 3 4 5 6 7 8 9 10 11

public destructor Destroy;   [...]   destructor TAcars.Destroy; begin inherited Destroy; acarsd_destroy(fLib); end;

---

Merci,
ZiP

J'ai ajouté ça :

Code:

---

destructor Destroy; override;

---

Je n'ai plus l'erreur, ma modification est-elle correcte ?

Merci,
ZiP

Oui, puisque tu surcharges le destructeur de l'ancêtre (cad modifie son comportement) tout en laissant "visible" le TAncetre(TDescendant).Destroy

Merci pour votre précision.

ZiP

C'est tout ce qu'il faut faire ? OMG j'en ai du code à revoir pour tous les faire sauter....

merci pour la question et la réponse :ccool:

Bonjour,

n'y aurait-il pas une autre erreur, là ? :

Citation:

---

Envoyé par [ZiP]

Code:

---

1 2 3 4 5 6

destructor TAcars.Destroy; begin inherited Destroy; acarsd_destroy(fLib); end;

---

---

Normalement,

Code:

---

1 2 3 4 5

TTest.Destroy; begin ... Inherited; // Toujours à la fin des destructeurs et démarre le destructeur (code seulement) de la classe parent end;

---

Source

Citation:

---

Envoyé par Jipété

n'y aurait-il pas une autre erreur, là ?

---

Avant ou après inherited dans Create ou Destroy n'est pas absolu. L'objet existe déjà à l'appel de Create et encore jusqu'à la sortie de la méthode Destroy.
Create et Destroy ne servent qu'à allouer (et initialiser), respectivement libérer les variables propres à chaque classe de l'héritage (un peu réducteur, plein d'autres choses peuvent y être faites).

Regarde TObject.Create, il est vide :mrgreen:

Les règles sont ainsi :

• si tu dois accéder à la création aux variables ancêtres, c'est obligatoirement après inherited ;
• si tu dois accéder à la destruction aux variables ancêtres, c'est obligatoirement avant inherited ;
• sinon, c'est ton choix (même si par convention, on fera plutôt comme ci-dessus).

J'ai eu un cas dernièrement sur la synchronisation d'un thread par event (mais il pourrait se présenter avec d'autres objets).

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

constructor TDelayThread.Create(...); begin inherited Create; StartEvent := TEvent.Create(...); end;   destructor TDelayThread.Destroy; begin inherited; StartEvent.Free; end;   procedure TDelayThread.TerminatedSet; begin inherited; StartEvent.SetEvent; end;   procedure TDelayThread.Execute; begin while not Terminated do begin StartEvent.WaitFor(INFINITE); end;

---

Le thread est en attente de l'event. Pour pouvoir le terminer, il faut commencer par le démarrer, donc activer/signaler l'event.
La demande de fin du thread peut être faite par Terminate (qui appelle à son tour TerminatedSet) ou par Free.

Dans le cas de Free, puisque TThread.Destroy appelle aussi Terminate. Si on détruit l'event avant inherited, c'est une VA dans TerminatedSet.
Obligé ici de détruite l'event après inherited.

Ton lien wiki n'est pas 100% pertinent ;)

Citation:

---

Envoyé par Andnotor

Ton lien wiki n'est pas 100% pertinent ;)

---

Ben oui, mais alors, si même la Bible n'est pas fiable...
Parce que c'est quand même le wiki de FreePascal, quoi, 8O

C'est plus juste en allemand :

Citation:

---

Steht meistens am Ende ...

---

Citation:

---

Se situe généralement à la fin ...

---

:mouarf: