anchor.diff:    Serialize(Value, TypeInfo(T));
   end;
   
  +procedure THproseWriter.WriteArray(const DynArray: TVariants);
  +var
  +  Count, I: Integer;
  +begin
  +  FRefer.SetRef(Null);
  +  Count := Length(DynArray);
  +  FStream.WriteBuffer(HproseTagList, 1);
  +  if Count > 0 then WriteRawBytes(BytesOf(IntToStr(Count)));
  +  FStream.WriteBuffer(HproseTagOpenbrace, 1);
  +  for I := 0 to Count - 1 do Serialize(DynArray[I]);
  +  FStream.WriteBuffer(HproseTagClosebrace, 1);
  +end;
  +
  +
   procedure THproseWriter.WriteArray<T>(const DynArray: array of T);
   var
     Count, I: Integer;
  
positive.code:     procedure WriteMapWithRef(const AMap: IMap);
  {$IFDEF SUPPORTS_GENERICS}
      procedure Serialize<T>(const Value: T); 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;
  
negative.code:  *                                                        *
   * hprose io unit for delphi.                             *
   *                                                        *
   * LastModified: Apr 30, 2018                             *
   * Author: Ma Bingyao <andot@hprose.com>                  *
   *                                                        *
  \**********************************************************/
  