tvariantmanager

type tvariantmanager = record

  vartoint: function(

Called to convert a variant to an integer value

  const v: variant

):LongInt;

  vartoint64: function(

Called to convert a variant to an int64 value

  const v: variant

):Int64;

  vartoword64: function(

Called to convert a variant to a word64 value

  const v: variant

):qword;

  vartobool: function(

Called to convert a variant to a boolean value

  const v: variant

):Boolean;

  vartoreal: function(

Called to convert a variant to a value

  const v: variant

):extended;

  vartotdatetime: function(

Callback to convert a variant to a TDatetime value.

  const v: variant

):TDateTime;

  vartocurr: function(

Called to convert a variant to a value

  const v: variant

):currency;

  vartopstr: procedure(

Called to convert a variant to a value

  var s;

  const v: variant

);

  vartolstr: procedure(

Called to convert a variant to a value

  var s: ansistring;

  const v: variant

);

  vartowstr: procedure(

Called to convert a variant to a value

  var s: widestring;

  const v: variant

);

  vartointf: procedure(

Called to convert a variant to a value

  var intf: IInterface;

  const v: variant

);

  vartodisp: procedure(

Called to convert a variant to a value

  var disp: IDispatch;

  const v: variant

);

  vartodynarray: procedure(

Called to convert a variant to a value

  var dynarr: pointer;

  const v: variant;

  typeinfo: pointer

);

  varfrombool: procedure(

Called to convert a value to a variant

  var dest: variant;

  const source: Boolean

);

  varfromint: procedure(

Called to convert a value to a variant

  var dest: variant;

  const source: LongInt;

  const Range: LongInt

);

  varfromint64: procedure(

Called to convert a value to a variant

  var dest: variant;

  const source: Int64

);

  varfromword64: procedure(

Called to convert a value to a variant

  var dest: variant;

  const source: qword

);

  varfromreal: procedure(

Called to convert a value to a variant

  var dest: variant;

  const source: extended

);

  varfromtdatetime: procedure(

Callback to convert a TDateTime value to a variant.

  var dest: Variant;

  const source: TDateTime

);

  varfromcurr: procedure(

Callback to convert a variant to a currency value.

  var dest: Variant;

  const source: Currency

);

  varfrompstr: procedure(

Called to convert a value to a variant

  var dest: variant;

  const source: ShortString

);

  varfromlstr: procedure(

Called to convert a value to a variant

  var dest: variant;

  const source: ansistring

);

  varfromwstr: procedure(

Called to convert a value to a variant

  var dest: variant;

  const source: WideString

);

  varfromintf: procedure(

Called to convert a value to a variant

  var dest: variant;

  const source: IInterface

);

  varfromdisp: procedure(

Called to convert a value to a variant

  var dest: variant;

  const source: IDispatch

);

  varfromdynarray: procedure(

Called to convert a value to a variant

  var dest: variant;

  const source: pointer;

  typeinfo: pointer

);

  olevarfrompstr: procedure(

Called to convert a value to a variant

  var dest: olevariant;

  const source: shortstring

);

  olevarfromlstr: procedure(

Called to convert a value to a variant

  var dest: olevariant;

  const source: ansistring

);

  olevarfromvar: procedure(

Called to convert a value to a variant

  var dest: olevariant;

  const source: variant

);

  olevarfromint: procedure(

Called to convert a value to a variant

  var dest: olevariant;

  const source: LongInt;

  const range: ShortInt

);

  varop: procedure(

Called to perform a variant operation:

  var left: variant;

  const right: variant;

  opcode: tvarop

);

  cmpop: function(

Called to perform a variant operation:

  const left: variant;

  const right: variant;

  const opcode: tvarop

):Boolean;

  varneg: procedure(

Called to perform a variant operation:

  var v: variant

);

  varnot: procedure(

Called to perform a variant operation:

  var v: variant

);

  varinit: procedure(

Called to perform a variant operation:

  var v: variant

);

  varclear: procedure(

Called to perform a variant operation:

  var v: variant

);

  varaddref: procedure(

Called to perform a variant operation:

  var v: variant

);

  varcopy: procedure(

Called to perform a variant operation:

  var dest: variant;

  const source: variant

);

  varcast: procedure(

Called to perform a variant operation:

  var dest: variant;

  const source: variant;

  vartype: LongInt

);

  varcastole: procedure(

Called to perform a variant operation:

  var dest: variant;

  const source: variant;

  vartype: LongInt

);

  dispinvoke: procedure(

Called to perform a variant operation:

  dest: pvardata;

  const source: tvardata;

  calldesc: pcalldesc;

  params: pointer

) of object;

  vararrayredim: procedure(

Called to perform a variant operation:

  var a: variant;

  highbound: SizeInt

);

  vararrayget: function(

Called to perform a variant operation:

  const a: variant;

  indexcount: SizeInt;

  indices: PLongint

):variant of object;

  vararrayput: procedure(

Called to perform a variant operation:

  var a: variant;

  const value: variant;

  indexcount: SizeInt;

  indices: PLongint

) of object;

  writevariant: function(

Called to perform a variant operation:

  var t: text;

  const v: variant;

  width: LongInt

):Pointer;

  write0Variant: function(

Called to perform a variant operation:

  var t: text;

  const v: Variant

):Pointer;

end;

SetVariantManager

Set the current variant manager.