Discussion :

[patrice@]

Bonjour à tous,

Je me pose une question assez bête depuis que j'ai découvert la commande FreeAndNil.
Je l'utilise chaque fois que je crée dynamiquement pour libérer la mémoire mais, dans le cadre de la création dynamique d'un fichier (.ini par exemple), est ce une bonne méthode?

Voici ce que je fais, mais est ce correct pour un fichier ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Var
   Repertoire:String;
   FicIni:TIniFile;
begin
     Repertoire:=IncludeTrailingPathDelimiter(ExtractFileDir(Principal_CheminDossier));
     FicIni:=TIniFile.Create(Repertoire+Principal_AnneeTravail+'.ini');
     MaskEdit3.Text:=FicIni.ReadString('DOSSIER','DATE OUVERTURE','');
     MaskEdit4.Text:=FicIni.ReadString('DOSSIER','DATE CLOTURE','');
     FreeAndNil(FicIni);
end;

[popo]

Le Free ou le FreeAndNil est nécessaire pour tout objet dont la libération n'est pas gérée par un autre objet.
Il doit y avoir un article dans la FAQ qui traite de ces cas là (fait une rechercher sur Owner).

Une bonne pratique est d'encadrer l'utilisation dans un try..finally

Code :

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

1
2
3
4
5
6
7
FicIni:=TIniFile.Create(Repertoire+Principal_AnneeTravail+'.ini');
try
     MaskEdit3.Text:=FicIni.ReadString('DOSSIER','DATE OUVERTURE','');
     MaskEdit4.Text:=FicIni.ReadString('DOSSIER','DATE CLOTURE','');
finally
     FreeAndNil(FicIni);
end;

[patrice@]

Ok, merci, donc, on peut utiliser le FreeAndNil en lieu et place de Free.

[Charly910]

Bonjour,

tu as quelques détails ici

A+
Charly

[ALWEBER]

Ok, merci, donc, on peut utiliser le FreeAndNil en lieu et place de Free.

Oui. FreeAndNil passe la valeur de l'objet à Nil une fois l'espace mémoire libéré ce qui te permet de tester ton objet pour une utilisation ultérieure si ton objet est décrit comme global.

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
 
Var
   FicIni:TIniFile;
implémentation
....
Var
   Repertoire:String;
begin
     Repertoire:=IncludeTrailingPathDelimiter(ExtractFileDir(Principal_CheminDossier));
    if FicIni = nil then
        FicIni:=TIniFile.Create(Repertoire+Principal_AnneeTravail+'.ini');
     MaskEdit3.Text:=FicIni.ReadString('DOSSIER','DATE OUVERTURE','');
     MaskEdit4.Text:=FicIni.ReadString('DOSSIER','DATE CLOTURE','');
end;
 
finalization
     FreeAndNil(FicIni);

Dans certains cas comme JSON tu peux utiliser le DisposeOf

[Paul TOTH]

juste une précision, FreeAndNil() a un intérêt bien particulier, il libère l'objet ET force la variable à nil.

dans le cas de ton exemple, un FicIni.Free suffit puisque la variable locale FicIni ne sera plus jamais utilisée et sa valeur peut être différente de nil sans que cela pose problème.

FreeAndNil est presque équivalent à

Code :

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

1
2
3
 
  FicIni.Free;
  FicIni := nil;

je dis "presque" car la méthode force la variable à nil avant d'appeler la méthode Free

Code :

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

1
2
3
4
 
  tmp := FicIni;
  FicIni := nil;
  tmp.Free;

dès lors, même si le destructor devait remonter une exception la variable serait malgré tout à nil.