Discussion :

[mortapa]

Bonjour,

je suis en train de créer un fichier xml en delphi.

pour cela j'utilise TObjectList , chaque nœud est un objet de ma TObjectList.

exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
<a>
      <b>
            <c />
            <d>
                  <e />
                  <f />
            </d>
      </b>
</a>

Donc les balises b,c,d,e,f font toutes partie de TObjectList, la racine a n'en fait pas partis.
Lorsque je crée un nœud dépendant d'un autre comme je dois passer en référence le nœud parent, donc pour crée le nœud c je dois lui passer en référence le nœud b; jusque la aucun souci j'utilise la méthode last de TObjectList.
Le problème survient avec f ou là je ne peux utiliser la méthode last puisque sinon cela créera un arbre comme ceci :

Code :

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

1
2
3
4
5
6
 
[…]
<e>
      <f />
</e>
[…]

D'ou ma question comment faire pour avoir la référence de l’occurrence d ?


Autre problème lors de l’exécution de mon code j'ai une violation d’accès à la mémoire lors du passage dans mon destructor qui fait :

Code :

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

1
2
3
4
5
          destructor Tc_xml.Destroy;
          begin
              Flnode.Free;
 
          end;

j'ai pourtant bien passer la variable OwnsObject à true dans mon constructor :

Code :

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

Flnode.OwnsObjects := True

[LadyWasky]

Salut
Si tu as mis OwnsObject à True, tu n'as pas besoin d'appeler Flnode.Free dans ta surchage du destructeur (dans le quel tu as oublié l'instruction inherited destroy; ).

Code :

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

1
2
3
4
5
6
7
8
 destructor Tc_xml.Destroy;
begin
    inherited destroy; //<-- appel du code standard de "destruction" du 
                           // TObjectList, comprenant la libération des objets
                           // si Ownsobjetc est égal à true
 
    //autres traitements
end;

Ownsobject:=True, fait en sorte que ton TObjectList détruira et libèrera automatiquement les objects que tu lui as rattaché.

Pour le reste, je n'ai rien compris

[mortapa]

merci.

(j'ai trouvé tout seul pour le reste)

[sjrd]

Euh... Pour faire des XML on a déjà inventé le IXMLDOMDocument et le TXMLDocument

[mortapa]

Euh... Pour faire des XML on a déjà inventé le IXMLDOMDocument et le TXMLDocument

possible… mais je suis en delphi 5 et je dois utiliser janXMLParser2
celui-ci étant un poil chiant à utiliser j'ai donc surchargé la classe pour facilité l'utilisation.