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 :

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;
Tout cela sur LookInside