* Fixed wrong order of elements in psaElementSizes introduced in r12138

git-svn-id: trunk@12227 -

rtl/objpas/varutils.inc

@@ -391,27 +391,27 @@ Const
      ARR_OLESTR,ARR_DISPATCH,ARR_NONE,ARR_NONE,ARR_VARIANT,ARR_UNKNOWN,
      ARR_NONE,ARR_NONE,ARR_NONE,ARR_NONE,ARR_NONE,ARR_NONE,ARR_NONE,ARR_NONE);
   psaElementSizes : Array [varEmpty..varQWord] of Byte =
-    (0,0,
+    (0,0,                  // varempty, varnull
-     SizeOf(SmallInt),
+     SizeOf(SmallInt),     // varsmallint
-     SizeOf(Integer),
+     SizeOf(Integer),      // varinteger
-     SizeOf(Single),
+     SizeOf(Single),       // varsingle
-     SizeOf(Double),
+     SizeOf(Double),       // vardouble
-     0, // unused
+     SizeOf(Currency),     // varcurrency
-     SizeOf(TDateTime),
+     SizeOf(TDateTime),    // vardate
-     SizeOf(Currency),
+     SizeOf(PWideString),  // varolestr
-     SizeOf(PWideString),
+     SizeOf(IInterface),   // vardispatch
-     SizeOf(IInterface),
+     SizeOf(TError),       // varerror
-     SizeOf(TError),
+     SizeOf(Boolean),      // varboolean
-     SizeOf(Boolean),
+     SizeOf(TVarData),     // varvariant
-     SizeOf(TVarData),
+     SizeOf(IUnknown),     // varunknown
-     SizeOf(IUnknown),
+     0, // Decimal         // vardecimal
-     0, // Decimal
+     0, // Unused
-     SizeOf(ShortInt),
+     SizeOf(ShortInt),     // varshortint
-     SizeOf(Byte),
+     SizeOf(Byte),         // varbyte
-     SizeOf(Word),
+     SizeOf(Word),         // varword
-     SizeOf(LongWord),
+     SizeOf(LongWord),     // varlongword
-     SizeOf(Int64),
+     SizeOf(Int64),        // varint64
-     SizeOf(QWord));
+     SizeOf(QWord));       // varqword
 
 Function SafeArrayCreate(VarType, Dim: DWord; const Bounds: TVarArrayBoundArray): PVarArray;stdcall;
   var