anchor.diff:      {$ENDIF}
     private
       function GetCount: Integer;
  +    /// <summary>
  +    ///   ͷеӶ
  +    ///   б
  +    /// </summary>
       procedure ClearChildren();
       procedure CheckCreateChildren;
       procedure CreateName();
  
positive.code: 
      function ForceByPath(pvPath:String): TDValueNode;
  
      function AddArrayChild: TDValueNode;
  
      function RemoveByName(pvName:String): Integer;
  
      procedure RemoveAll;
  
      procedure Delete(pvIndex:Integer);
  
      property Count: Integer read GetCount;
      property Items[Index: Integer]: TDValueNode read GetItems; default;
      property Name: TDValueItem read FName;
  
      property Parent: TDValueNode read FParent;
  
      property Value: TDValueItem read FValue;
  
  
    end;
  
    TDValueItem = class(TObject)
  
negative.code: 
  procedure TDValueNode.RemoveAll;
  begin
    ClearChildren();
  end;
  
  function TDValueNode.RemoveByName(pvName:String): Integer;
  