anchor.diff:     Modified and enhanced by Linas Naginionis (lnaginionis@gmail.com)
      New home: http://code.google.com/p/sv-utils/
   }
  -
  +{$I sv.inc}
   interface
   
   {$IFDEF FPC}
  
positive.code:     procedure SetParamVariant(const name: string; const Value: Variant); overload;
      procedure SetParamBlob(const I: Integer; const Value: TStream); overload;
      procedure SetParamBlob(const name: string; const Value: TStream); overload;
  
      /// <summary>
      /// Executes previously set SQL statement and fetches results into given class type
      /// </summary>
      function ExecSQLAndMapData<T: constructor, class>(var DataList: TObjectList<T>): Boolean;
      /// <summary>
      /// Executes query which returns unidirectional table
      /// </summary>
  
negative.code: uses
    Variants,
    Math,
    {$IFDEF DELPHI14_UP}
    Rtti,
    {$ENDIF}
    TypInfo;
  
  const
  