Discussion :

[Bejaia-In]

Que ce passe-t-il aprés la libération du bouton, une erreur bien sûr !
(sur BT.Caption:='gaga').

Code :

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

1
2
3
4
5
6
7
8
9
procedure CreateDestroy;
var BT:TButton;
begin
  BT:=TButton.Create(Self);
  BT.Caption:='gogo';
  BT.Free;
  BT.Caption:='gaga';
  BT.Width:=120;
end;

et maintenant ??

Code :

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

1
2
3
4
5
6
7
8
9
procedure CreateDestroy;
var BT:TButton;
begin
 BT:=TButton.Create(Self);
 BT.Caption:='gogo';
 BT.Free;
 BT:=nil;
 BT.Caption:='gaga';
end;

Rien !?

et avec ça ?

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure CreateDestroy;
var BT:TButton;
begin
 BT:=TButton.Create(Self);
 BT.Caption:='gogo';
 BT.Free;
 BT:=nil;
 BT.Caption:='gaga';
 BT.Width:=120;
end;

Erreur ! (sur BT.Width et non sur BT.Caption)

Quelle est l'explication ? un objet en générale n'existe pas aprés sa libération, comment peut-on lui affecter une valeur ?

[sjrd]

Il ne fait aucun doute que le comportement anormal et surprenant est l'absence d'erreur sur le Caption. Je crois avoir l'explication, mais je devrai vérifier tout à l'heure dans les sources de la VCL.

En fait je pense que TControl.SetCaption ne fait strictement rien, c'est sa surcharge dans TButton (ou un de ses ascendants) qui fait qqch. Or l'appel à une méthode de nil ne provoque pas d'erreur en soi, c'est la lecture/modification de la mémoire (donc des champs) qui provoque l'erreur.

Donc, lorsque BT vaut nil, sa table des méthodes virtuelles (VMT) est vide, et l'appel à SetCaption est redirigé vers TControl.SetCaption, qui ne provoque pas d'erreur. Alors que lorsqu'il n'est pas encore mis à nil, sa VMT, bien que libérée, pointe toujours sur TButton.SetCaption, qui provoque l'erreur. A moins que ce soit directement la lecture de la VMT libérée qui provoque l'erreur. La ça dépasse mes connaissances.

En revanche, la méthode SetWidth de TControl, elle, fait déjà quelque chose, et modifie la mémoire. Ce qui aboutit inéluctablement, nil ou pas, à une erreur.

Je viens préciser tout à l'heure dès que j'ai été vérifié mes dires

[Bejaia-In]

C'est vrai que la propiété "Caption" est déclaré par TButton alors que "Width" sont déclaré par TControl.
Mais si j'ajoute (BT.Enable) qui est déclaré dans TButton :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 procedure CreateDestroy;
var BT:TButton;
begin
 BT:=TButton.Create(Self);
 BT.Caption:='gogo';
 BT.Free;
 BT:=nil;
 BT.Caption:='gaga';
 BT.Enable:=false;
 BT.Width:=120;
end;

j'ai une une erreur sur (BT.Enable) mais toujours pas sur (BT.Caption).?

[sjrd]

En fait non Caption n'est pas déclaré dans TButton, mais bien dans TControl, mais protégée.

Bon, j'y étais plus ou moins. En fait il n'est nulle part question de méthode virtuelle, je me disais bien aussi que la VMT aurait dû poser un problème avec nil, et que donc mon explication ne tenait pas tout à fait.

Mais il se passe ceci : l'affectation de Caption, appelle SetCaption, qui elle-même appelle GetTextBuf et SetTextBuf. Ces deux-là appellent la méthode Perform. Aucune de toutes ces méthodes n'accèdent, que ce soit en lecture ou en écriture, aux champs du contrôle.
Et Perform, elle, pour le seul accès à un champ qu'elle fait, protège celui-ci par un Self <> nil.

Donc j'avais raison sur le gros de l'explication : la modification de SetCaption ne fait accès à aucun champ lorsque l'objet vaut nil.

[Bejaia-In]

En fait non Caption n'est pas déclaré dans TButton, mais bien dans TControl, mais protégée.

Tout a fait vrai, mais le fait que TButton redéfinisse cette propriété à fait quelque chose que je n'arrive pas a suivre.
Car avec (BT.Width:=120) la violation d'access est là a tout les coup malgré le (BT:=nil).

Si sur l'affectation (BT.Caption:="gaga") ton explication tiens la route;
Pouquoi le deuxieme access au composant (BT.Enable:=false) c'est une violation d'access ?

[sjrd]

Si sur l'affectation (BT.Caption:="gaga") ton explication tiens la route;
Pouquoi le deuxieme access au composant (BT.Enable:=false) c'est une violation d'access ?

Tout simplement parce que SetEnabled, au contraire de SetCaption, accède au champ FEnabled de TControl, que l'instance valle nil ou pas.