tvariantmanager

Type
tvariantmanager = record
public
  vartoint : function(const v: variant) : LongInt;
  vartoint64 : function(const v: variant) : Int64;
  vartoword64 : function(const v: variant) : QWord;
  vartobool : function(const v: variant) : Boolean;
  vartoreal : function(const v: variant) : extended;
  vartotdatetime : function(const v: variant) : TDateTime;
  vartocurr : function(const v: variant) : currency;
  vartopstr : procedure(var s; const v: variant);
  vartolstr : procedure(var s: ansistring; const v: variant);
  vartowstr : procedure(var s: widestring; const v: variant);
  vartointf : procedure(var intf: IInterface; const v: variant);
  vartodisp : procedure(var disp: IDispatch; const v: variant);
  vartodynarray : procedure(var dynarr: pointer; const v: variant; typeinfo: pointer);
  varfrombool : procedure(var dest: variant; const source: Boolean);
  varfromint : procedure(var dest: variant; const source: LongInt; 
            const Range: LongInt);
  varfromint64 : procedure(var dest: variant; const source: Int64);
  varfromword64 : procedure(var dest: variant; const source: QWord);
  varfromreal : procedure(var dest: variant; const source: extended);
  varfromtdatetime : procedure(var dest: Variant; const source: TDateTime);
  varfromcurr : procedure(var dest: Variant; const source: Currency);
  varfrompstr : procedure(var dest: variant; const source: ShortString);
  varfromlstr : procedure(var dest: variant; const source: ansistring);
  varfromwstr : procedure(var dest: variant; const source: WideString);
  varfromintf : procedure(var dest: variant; const source: IInterface);
  varfromdisp : procedure(var dest: variant; const source: IDispatch);
  varfromdynarray : procedure(var dest: variant; const source: pointer; typeinfo: pointer);
  olevarfrompstr : procedure(var dest: olevariant; const source: shortstring);
  olevarfromlstr : procedure(var dest: olevariant; const source: ansistring);
  olevarfromvar : procedure(var dest: olevariant; const source: variant);
  olevarfromint : procedure(var dest: olevariant; const source: Int64; 
            const range: ShortInt);
  varop : procedure(var left: variant; const right: variant; opcode: tvarop);
  cmpop : function(const left: variant; const right: variant; 
           const opcode: tvarop) : Boolean;
  varneg : procedure(var v: variant);
  varnot : procedure(var v: variant);
  varinit : procedure(var v: variant);
  varclear : procedure(var v: variant);
  varaddref : procedure(var v: variant);
  varcopy : procedure(var dest: variant; const source: variant);
  varcast : procedure(var dest: variant; const source: variant; vartype: LongInt);
  varcastole : procedure(var dest: variant; const source: variant; vartype: LongInt);
  dispinvoke : procedure(dest: pvardata; var source: tvardata; calldesc: pcalldesc; 
            params: pointer);
  vararrayredim : procedure(var a: variant; highbound: SizeInt);
  vararrayget : function(const a: variant; indexcount: SizeInt; indices: PLongint)
            : variant;
  vararrayput : procedure(var a: variant; const value: variant; indexcount: SizeInt; 
            indices: PLongint);
  writevariant : function(var t: text; const v: variant; width: LongInt) : Pointer;
  write0Variant : function(var t: text; const v: Variant) : Pointer;
end