anchor.diff:  
   function TXMLNode.Value: XMLString;
   begin
  -  Result := FNode.Text;
  +  Result := FNode.nodeValue;
   end;
   
   function TXMLNode.Value(const AValue: XMLString): IXMLNode;
   begin
     Result := Self;
  -  FNode.Text := AValue;
  +  FNode.nodeValue := AValue;
   end;
   
   function TXMLNode.Attrs: IXMLAttributes;
  
positive.code: 
  function TXMLNodes.Count: Integer;
  begin
    Result := FNode.ChildNodes.Count;
  end;
  
  { TXMLPack }
  
negative.code: 
  uses
    Classes, SysUtils,
    xmlDoc, xmlIntf, xmlDom,
    James.Data,
    James.Data.Clss,
    Xavier.Core;
  