Bonjour,
Je viens de publier un nouvel article qui explique comment implémenter un destructor automatique pour les records.
Il répond à ce cas de figure :
Tout cela sur LookInside
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13 type TMonRecord = record Stream: TStream; end; procedure test; var R: TMonRecord; begin R.Stream := TStream.Create; // je veux que le Stream de mon record soit libéré automatiquement ! end;
Partager