anchor.diff:  end;
   
   
  -procedure TScriptValidatorResult.XMLToArray(aSrc: TXmlNode;
  -                                            var aDest: TScriptValidatorIssueArray);
  +procedure TScriptValidatorResult.XMLToArray(aSrc: TXmlNode; var aDest: TScriptValidatorIssueArray);
   var
  -  Node:  TXmlNode;
  +  I: Integer;
  +  Node: TXmlNode;
     Issue: TScriptValidatorIssue;
  -  Len:   Integer;
  +  Len: Integer;
   begin
  -  for Node in aSrc.ChildNodes do
  +  for I := 0 to aSrc.ChildNodes.Count - 1 do
     begin
  +    Node := aSrc.ChildNodes[I];
  +
       Len := Length(aDest);
       SetLength(aDest, Len + 1);
       Issue.Line   := StrToInt(Node.Attribute['Line']);
  
positive.code:   strict private
      fHints,
      fWarnings,
      fErrors:   TScriptValidatorIssueArray;
      procedure Add(aLine, aColumn: Integer; aParam, aMessage: string;
                    var aDest: TScriptValidatorIssueArray); inline;
      procedure ArrayToXML(aSrc: TScriptValidatorIssueArray; var aDest: TXmlNode);
      procedure XMLToArray(aSrc: TXmlNode; var aDest: TScriptValidatorIssueArray);
      function FixText(aTest: string): string;
  
negative.code: 
  type
    TScriptValidatorIssue = record
      Line: Integer;
      Column: Integer;
      Module: string;
      Param: string;
      Msg: string;
    end;
    TScriptValidatorIssueArray = array of TScriptValidatorIssue;
  
  