anchor.diff:      procedure WriteMapWithRef(const AMap: IMap);
   {$IFDEF SUPPORTS_GENERICS}
       procedure Serialize<T>(const Value: T); overload;
  +    procedure WriteArray(const DynArray: TVariants); overload;
       procedure WriteArray<T>(const DynArray: array of T); overload;
       procedure WriteDynArray<T>(const DynArray: TArray<T>);
       procedure WriteDynArrayWithRef<T>(const DynArray: TArray<T>); overload;
  
positive.code:   Serialize(Value, TypeInfo(T));
  end;
  
  procedure THproseWriter.WriteArray<T>(const DynArray: array of T);
  var
    Count, I: Integer;
  
negative.code:  *                                                        *
   * hprose io unit for delphi.                             *
   *                                                        *
   * LastModified: Apr 30, 2018                             *
   * Author: Ma Bingyao <andot@hprose.com>                  *
   *                                                        *
  \**********************************************************/
  