Discussion :

[Straahd]

,Bonjour,

J'ai ecris un object qui herite de la classe TInterfacedObject.

J'ai écris ensuite le code suivant :

Code :

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

1
2
3
4
5
6
7
8
 
var
  lString : IString;
begin
  lString := TString.New('Hello');
  lString.PaddingLeft('A',10);
  Showmessage(lString.Value);
end;

Mon code s'éxecute correctement, j'ai bien ce que j'attend.
Ce que j'ai remarqué, c'est qu'a la fin de ma procedure, mon objet est libéré.

J'ai dont l'impression que ne ne suis alors plus obliger d'appeler explicitement le destructeur (un peu comme dans un language managé).

Je me demande donc si on peut développer "sans danger" une application qui fonctionnerai en utilisant cette fonctionnalité.

d'avance merci

[tourlourou]

il me semble bien que les interfaces gèrent un compteur de référence et que lorsque l'objet n'est plus utilisé, il se libère automatiquement

[Clorish]

Effectivement ... il ne faut surtout pas detruire une interface.

Le principe des interfaces c'est justement de gerer de maniere masquee les objets.

A chaques affectation de l'interface a une variable de type TInterface, un compteur de reference est incrementé et de meme, decremente lors que la variable de type interface ne pointe plus sur cet objet (libéré ou affecté a nil).

Pour "detruire" un objet derivant de tinterfaced object, il suffit de mettre a nil toutes les variables interfaces referencant cet objet.

Je te conseille de faire un test : Cree 3 var de type interfaces qui pointent chacune vers le meme objet interface.

LEs 3 fonctions definies dans l'interfaces IInterface servent a ca : Ajouter une reference, detruire une reference et demander une interface :p

Affecte a nil chacune de ces variables depuis 3 bouttons separe et lance un message dans le destructeur de l'objet interfacé.
Tu verras que quelque soit l'ordre de clic sur les boutons, seul de dernier declanchera le message, preuve de la liberation de l'objet.