Discussion :

[benda95280]

Bonjour à tous,

Je planche depuis ce matin sur un problème avec Tdictionary et l'utilisation de ****.Free ou FreeAndNil(***)
J'ai cru comprendre qu'après utilisation, il fallait vide la variable, mais actuellement cela ne me pose que des problèmes.
A moins qu'il ne soit nécessaire d’exécuter cela a la fermeture de l'application ?

Exemple:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Var
Messages : TMessage;
FMsg : String;
 
Begin
FMsg := 'Paris';
Messages := TMessage.Create; // ## Messages est actuellement vide ##
DictionaryMessage.TryGetValue(FMsg, Messages); // ## Messages contient ce qu'il faut ##
  FreeAndNil(Messages); 
ou // ## L'un ou l'autre ##
  Messages.Free; 
// -----> A partir d'ici, DictionaryMessage (Paris) devient vide <--------

Un exemple concret, qui pose problème a la seconde exécution:

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
20
21
22
      else if cmd='RXQuestionEditGroupe' then
      begin
        //On extrait, et on set
        FMsg:= Copy(str, Pos('@', str)+1, Length(str)-Pos ('@', str)); //maman@groupeC
        idx:=pos('@',FMsg);
        FMsg2:=copy(FMsg,1,idx-1);   //maman
        FMsg3:= Copy(FMSG, Pos('@', FMSG)+1, Length(FMSG)-Pos ('@', FMSG)); //GroupeC
        form2.AddInfoDebugger('RECEPTION','Demande de Modif d''une question (Groupe) dans: '+FMsg2+' => '+FMsg3);
 
        Messages := TMessage.Create;
        if (DictionaryMessage.TryGetValue(FMsg2, Messages) = True) then
        begin
          Messages.Groupe := FMsg3;
          DictionaryMessage.AddOrSetValue(FMsg2, Messages);
        end
        else
        begin
          form2.AddInfoDebugger('ERREUR','Demande de modif de la question, elle n''existe pas: '+FMsg);
          tmycontext(acontext).Connection.IOHandler.WriteLn('Error@Demande de modif de la question, elle n''existe pas !');
        end;
        FreeAndNil(Messages);
      end

Merci.

[Andnotor]

Tu détruis Message sans supprimer l'entrée dans le dictionnaire. Au second passage, Message est invalide.
Tu n'as pas besoin de créer systématiquement Message mais uniquement s'il n'existe pas dans le dictionnaire. TryGetValue retourne l'instance de TMessage et non une copie.

Code :

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

1
2
3
4
5
if not DictionaryMessage.TryGetValue(FMsg2, Messages) then
  Messages := TMessage.Create;
 
Messages.Groupe := FMsg3;
DictionaryMessage.AddOrSetValue(FMsg2, Messages);

Et pour le supprimer :

Code :

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

1
2
3
4
5
if DictionaryMessage.TryGetValue(FMsg2, Messages) then
begin
  Messages.Free;
  DictionaryMessage.Remove(FMsg2);
end;

Pour vider complètement le dictionnaire, il faut le récupérer sous forme de tableau pour énumérer les entrées. Quelque chose comme ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
var
  MessagePair :TPair<string, TMessage>;
 
begin
  for MessagePair in DictionaryMessage.ToArray do
  begin
    MessagePair.Value.Free;
    DictionaryMessage.Remove(MessagePair.Key);
  end;
end;

ou par Clear si l'événement OnValueNotify est renseigné (pour la destruction du TMessage).

[benda95280]

Bonjour,

Effectivement, mon code est incomplet.
Donc si je comprend bien, il ne s'agit pas d'une copie, donc si je le supprime, cela modifie aussi le dictionnaire ? (Les deux sont "liés")
Je ne peux donc pas réutiliser Messages ? Puis-je libérer cette instance pour la réutiliser ?

Mon but étant de faire plusieurs appels et modifications dans mon dictionnaire, en utilisant Messages.

[Andnotor]

Donc si je comprend bien, il ne s'agit pas d'une copie, donc si je le supprime, cela modifie aussi le dictionnaire ? (Les deux sont "liés")

Justement non, d'où la référence invalide au second passage.

Je ne peux donc pas réutiliser Messages ?

Si, si, regarde mon premier bout de code. TMessage est créé s'il n'existe pas (au premier passage, TryGetValue échoue) puis réutilisé (TryGetValue retourne avec succès).

[benda95280]

Hummmmm...

Donc je ne comprend toujours pas mon problème.
Peut-être qu'une capture d'écran pourra montrer mon problème :

Partie du code présenté dans les images:
(Les arrêts sont sur les lignes 12 et 13)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
    else if cmd='EditQuestion' then
      begin
       FMsg:= Copy(str, Pos('@', str)+1, Length(str)-Pos ('@', str));
       form2.AddInfoDebugger('INFO','Demande d''edit sur la question: '+FMsg);
       if DictionaryMessage.ContainsKey(FMsg) then
         begin
           Messages := TMessage.Create;
           DictionaryMessage.TryGetValue(FMsg, Messages);
           tmycontext(acontext).Connection.IOHandler.WriteLn('TXQuestionEditGroupe@'+Messages.Groupe);
           tmycontext(acontext).Connection.IOHandler.WriteLn('TXQuestionEditDesc@'+Messages.Desc);
           tmycontext(acontext).Connection.IOHandler.WriteLn('TXQuestionEditText@'+Messages.Text);
           freeandnil(Messages); // Messages.Free;
           DictionaryMessage.TryGetValue(FMsg, Messages);
         end

PS: La ligne 13 me sert de point d’arrêt, et n'a aucun intérêt... je ne savais pas quoi mettre...

Ligne 12:


Ligne 13:

[Andnotor]

Pas à pas :

Code :

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

if DictionaryMessage.ContainsKey(FMsg) then

Si vrai, un TMessage devrait déjà exister (à moins que tu aies fait plus tôt un AddOrSetValue(FMsg, nil)).

Code :

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

1
2
Messages := TMessage.Create;
DictionaryMessage.TryGetValue(FMsg, Messages);

Tu en crée cependant un mais qui ne sera jamais utilisé puisqu'au final tu récupères le message depuis le dictionnaire, tu écrases la référence.

Code :

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

freeandnil(Messages); // Messages.Free;

Tu penses détruire le message juste créé mais puisque tu as écrasé la référence, c'est celui contenu dans le dictionnaire qui est libéré. Celui juste créé subsistera jusqu'à la fermeture du programme (memory leak).

Code :

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

DictionaryMessage.TryGetValue(FMsg, Messages);

Retourne vrai puisque l'entrée existe toujours. Seulement le pointeur Message est invalide puisque l'instance a été libérée (par erreur) précédemment. Violation d'accès à la prochaine utilisation de Message.

[benda95280]

Réponse plutot précise

Donc, je n'ai pas besoin de créer a chaque fois mon Messages car je le récupère depuis le dictionnaire.

Code :

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

Messages := TMessage.Create;

Je ne dois donc jamais libérer mon Messages ?

[Andnotor]

Donc, je n'ai pas besoin de créer a chaque fois mon Messages car je le récupère depuis le dictionnaire.

C'est ça.

Je ne dois donc jamais libérer mon Messages ?

Uniquement lorsque tu supprimes l'entrée dans le dictionnaire, sinon jamais.

[benda95280]

Merci,

Je peux donc utiliser Messages plus tard pour d'autres actions ? (Similaire) Avec le même appel ?

Code :

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

DictionaryMessage.TryGetValue('AutreChose', Messages);

Est-il possible d'écrire cela ?

Code :

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

DictionaryMessage.Items['Toyota'].Groupe := 'test';

Afin de définir directement une valeur dans le dictionnaire.

[Andnotor]

Je peux donc utiliser Messages plus tard pour d'autres actions ? (Similaire) Avec le même appel ?

Oui.

Est-il possible d'écrire cela ?

Code :

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

DictionaryMessage.Items['Toyota'].Groupe := 'test';

Oui parce que TMessage est un type objet. Ça ne serait pas possible s'il était de type record.

[benda95280]

Merci de ta réponse.
Cela marche correctement maintenant