Enables inserting variants arrays into variant.

Index: rtl/inc/variants.pp
=================================================================== --- rtl/inc/variants.pp (revision 10368)
+++ rtl/inc/variants.pp (working copy)
@@ -3166,7 +3166,7 @@

       Result:=true
     else
       begin

- Result:=(aVarType and not(varByRef)) in [varEmpty,varNull,varSmallInt,varInteger,varSingle,varDouble,
+ Result:=(aVarType and not(varByRef) and not(varArray)) in [varEmpty,varNull,varSmallInt,varInteger,varSingle,varDouble, varCurrency,varDate,varOleStr,varDispatch,varError,varBoolean,

           varVariant,varUnknown,varShortInt,varByte,varWord,varLongWord,varInt64];
       end;

Enables inserting variants arrays into variant.

Do you have a test which shows how this works? Is this delphi compatible? Are you sure that it is enough just to allow it?

I tested it on our delphi application, which uses deeply nested variant arrays. Results are the same compiled by delphi or fpc. I will continue with testnig this week.