* support varbyref and vararray (the latter if convertable to a single

    element of its element type) in TBinaryObjectWriter.WriteVariant
    by letting variantmanager handle their conversion transparently

git-svn-id: trunk@13075 -

rtl/objpas/classes/writer.inc

@@ -375,7 +375,9 @@ end;
 
 procedure TBinaryObjectWriter.WriteVariant(const VarValue: variant);
 begin
-  case tvardata(VarValue).vtype of
+  { The variant manager will handle varbyref and vararray transparently for us
+  }
+  case (tvardata(VarValue).vtype and varTypeMask) of
     varEmpty:
       begin
         WriteValue(vaNil);