Discussion :

[[ZiP]]

Bonjour,

Savez-vous comment remédier à ce message :

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

Code :

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

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

[[ZiP]]

J'ai ajouté ça :

Code :

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

destructor Destroy; override;

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

Merci,
ZiP

[tourlourou]

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

[[ZiP]]

Merci pour votre précision.

ZiP

[mtournay]

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

[Jipété]

Bonjour,

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

Code :

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

1
2
3
4
5
6
 
destructor TAcars.Destroy;
begin
    inherited Destroy;
    acarsd_destroy(fLib);
end;

Normalement,

Code :

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

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

[Andnotor]

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

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 :

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

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

[Jipété]

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,

[Andnotor]

C'est plus juste en allemand :

Steht meistens am Ende ...

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