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
;