TVarDataArray type

TVarDataArray = Array of tvardata = packed record
public
 vtype: tvartype;
case Integer of
0: (
 res1: Word;
case Integer of
0: (
 res2: Word;
 res3: Word;
case Word of
varsmallint: (
 vsmallint: SmallInt;
);
varinteger: (
 vinteger: LongInt;
);
varsingle: (
 vsingle: single;
);
vardouble: (
 vdouble: Double;
);
vardate: (
 vdate: TDateTime;
);
varcurrency: (
 vcurrency: currency;
);
varolestr: (
 volestr: PWideChar;
);
vardispatch: (
 vdispatch: pointer;
);
varerror: (
 verror: HRESULT;
);
varboolean: (
 vboolean: wordbool;
);
varunknown: (
 vunknown: pointer;
);
varustring: (
 vustring: pointer;
);
varshortint: (
 vshortint: ShortInt;
);
varbyte: (
 vbyte: Byte;
);
varword: (
 vword: Word;
);
varlongword: (
 vlongword: DWord;
);
varuint32: (
 vuint32: DWord;
);
varint64: (
 vint64: Int64;
);
varqword: (
 vqword: QWord;
);
varword64: (
 vword64: QWord;
);
varstring: (
 vstring: pointer;
);
varany: (
 vany: pointer;
);
vararray: (
 varray: pvararray;
);
varbyref: (
 vpointer: pointer;
);
varrecord: (
 vrecord: pointer;
 precinfo: pointer;
);
);
1: (
 vlongs: Array[0..2] of LongInt;
);
);
1: (
 vwords: Array[0..6] of Word;
);
2: (
 vbytes: Array[0..13] of Byte;
);
end