Fixed a bug of Delphi 10.2.3

Author: andot

Source/HproseIO.pas

@@ -14,7 +14,7 @@
  *                                                        *
  * hprose io unit for delphi.                             *
  *                                                        *
- * LastModified: Dec 1, 2016                              *
+ * LastModified: Apr 30, 2018                             *
  * Author: Ma Bingyao <[email protected]>                  *
  *                                                        *
 \**********************************************************/
@@ -309,6 +309,7 @@   THproseWriter = class
     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;
@@ -4291,6 +4292,20 @@ procedure THproseWriter.Serialize<T>(const Value: T);
   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;