anchor.diff:      procedure LoadFromFile(FileName: string);
     end;
   
  +  { TmXmlElement }
  +
     TmXmlElement = class
     private
       FImpl : TImpl_mXmlElement;
  
positive.code:   Result := FImpl._GetIntegerAttribute(Name);
  end;
  
  function TmXmlElement.GetIntegerAttribute(Name: TmXmlString; Default: integer): integer;
  begin
    Result := FImpl._GetIntegerAttribute(Name, Default)
  end;
  
  function TmXmlElement.GetAttribute(Name: TmXmlString): TmXmlString;
  
negative.code:     function HasAttribute(const Name: TmXMLString): boolean;
      procedure SetAttribute(Name, Value: TmXmlString);
      function GetAttribute(Name: TmXmlString): TmXmlString; overload;
      function GetAttribute(Name: TmXmlString; DefaultValue: TmXmlString): TmXmlString; overload;
      procedure SetDateTimeAttribute(Name : TmXmlString; Value: TDateTime);
      function GetDateTimeAttribute(Name: TmXmlString): TDateTime; overload;
      function GetDateTimeAttribute(Name: TmXmlString; DefaultValue : TDateTime): TDateTime; overload;
      procedure SetIntegerAttribute(Name : TmXmlString; Value: integer);
      function GetIntegerAttribute(Name: TmXmlString): integer; overload;
      function GetIntegerAttribute(Name: TmXmlString; DefaultValue : integer): integer; overload;
      procedure SetBooleanAttribute(Name : TmXmlString; Value : Boolean);
      function GetBooleanAttribute(Name: TmXMLString): boolean; overload;
      function GetBooleanAttribute(Name: TmXMLString; DefaultValue : boolean): boolean; overload;
    end;
  
    TmXmlElementCursor = class
  