Libérer mémoire d'un variant
Bonjour,
Dans une bibliothèque j'utilise une fonction qui me renvoie des données sous la forme d'un Variant. Je récupère correctement ces données.
Par contre à chaque fois que j'appelle la fonction, j'ai une "fuite" mémoire.
J'en déduis qu'à chaque appel de fonction, celle-ci s'alloue de la mémoire qui n'est jamais libérée.
Est-ce que j'ai moyen de libérer la mémoire pointée par mon variant ?
J'ai essayé Dispose, Finalize...
Code:
1
2
3
4
5
6
7
8
9
10
|
Var
V : variant;
Begin
V:=GetImageStat(0,1); //Je constate une perte de mémoire
Data:=.....
End; |
Entre temps, j'ai trouvé la solution :
Code:
1
2
3
4
|
Uses VarUtils;
VariantClear(TVarData(V)) |
Merci
