Bonjour, je charge un xml et à l'éxecution j'ai le message "operation de pointeur incorrect" à la fin de cette procedure, je ne trouve pas pourquoi. J'ai tout viré dedans et sa continue. Je crée le XML sans souçi dans la même unité. Merci à vous grand professionnel de l'informatique en pas a pas sa m'emmène dans "Classes" et sa plante dans "procedure TInterfaceList.Clear;"
Si je commente la ligne rouge je n'ai plus l'erreur.

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
Procedure LoadFromXML(sFileName: String);
Var
  PackagesXML:      TXMLDocument;
  PackagesListNode: IXMLNode;
Begin
  PackagesXML := TXMLDocument.Create(Nil);
  Try
    PackagesXML.FileName := sFileName;
    PackagesXML.Active   := True;
    PackagesListNode     := PackagesXML.ChildNodes.First; // get root node

    PackagesXML.Active := False;
  Finally
    PackagesXML.Free;
  End;
End;