Discussion :

[aharel]

Bonjour,

J'ai un soucis avec du vieux code Delphi 7 en rapport avec la réinitialisation de tableaux dynamiques de records imbriqués.
J'ai un record TDeltaList qui contient un tableau dynamique de records TDeltaListFct, le record TDeltaList contenant lui-même un tableau dynamique de TDeltaListePar.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
TDeltaListePar = record
                   Nom:string;
                   Valeur:Real;
                   Accessible:boolean;
  end;
 
  TDeltaListFct = record
               ListeParam:array of TDeltaListePar;
               MsgErreur:string[7];
               NomFct:string;
  end;
 
  TDeltaList = record
               NomProgramme: string[8];
               ListeAxe:  array of string[2];
               ListeType: array of string[2];
               ListeFct:array of TDeltaListFct;
end;

Mon record TDeltaList est rempli via la lecture d'un fichier.

Question, comment réinitialiser mon record TDeltaList (faire un RAZ) proprement sans fuites mémoire?
Est-ce que faire le code ci-dessous :

Code :

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

1
2
3
4
5
 
monRecord : TDeltaList;
//ici mon code de remplissage de la structure à partir du contenu d'un fichier
Setlength(monRecord.ListeFct, 0); 
monRecord.ListeFct := nil;

suffit pour libérer en cascade tous les tableaux dynamiques ?

Merci d'avance.

[ShaiLeTroll]

L'affectation à nil se sert à rien, c'est le SetLength qui compte, les RTTI déjà en D7 faut le job pour le deux* types managés soit donc String et Array.
Si tu as le code de l'unité System, c'est Finalize (_FinalizeArray) qui est invoqué pour libérer un tableau, soit lors du SetLength pour un tableau, soit lors la sortie de fonction sur le end; que c'est appelé automatiquement pour tous tableaux.

Si tu es en FastMM, ne soit pas surpris que certaines valeurs sont encore lisibles, si le bloc contient encore des données d'autres variables, il n'est pas encore libéré.

Tu fais quasiment tout en ShortString ?
C'est pour tronquer les valeurs ?
Sache que cela occupe plus de mémoire des ShortString[8] que de String (préfixé en interne par le compteur de référence et longueur) lorsque tout est encore vide, une fois rempli, tout dépend les données et la longueur des ShortString.



deux* pour les types simples
Tu as aussi le Variant et OleVariant qui sont désalloués à la fin de portée ou l'affectation à Unassigned.
Tu as aussi le les Interface, encore un compteur de référence, là c'est l'affectation à nil qui compte, le compilateur ajouter lui-même le _Release

[aharel]

En fait, je ne suis pas l'auteur du code que je cite dans mon message initial.
J'essaie seulement de corriger des problèmes liés au fait que les structures ne sont pas réinitialisées avant d'être réutilisées, d'où des effets de bord.
En tout cas je note que l'affectation à nil n'est pas nécessaire.

L'affectation à nil se sert à rien, c'est le SetLength qui compte, les RTTI déjà en D7 faut le job pour le deux* types managés soit donc String et Array.
Si tu as le code de l'unité System, c'est Finalize (_FinalizeArray) qui est invoqué pour libérer un tableau, soit lors du SetLength pour un tableau, soit lors la sortie de fonction sur le end; que c'est appelé automatiquement pour tous tableaux.

Si tu es en FastMM, ne soit pas surpris que certaines valeurs sont encore lisibles, si le bloc contient encore des données d'autres variables, il n'est pas encore libéré.

Tu fais quasiment tout en ShortString ?
C'est pour tronquer les valeurs ?
Sache que cela occupe plus de mémoire des ShortString[8] que de String (préfixé en interne par le compteur de référence et longueur) lorsque tout est encore vide, une fois rempli, tout dépend les données et la longueur des ShortString.



deux* pour les types simples
Tu as aussi le Variant et OleVariant qui sont désalloués à la fin de portée ou l'affectation à Unassigned.
Tu as aussi le les Interface, encore un compteur de référence, là c'est l'affectation à nil qui compte, le compilateur ajouter lui-même le _Release