tvariantmanager¶

type
  tvariantmanager = record
    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); cdecl;
    vararrayredim:  = procedure(var a: variant; highbound: SizeInt);
    vararrayget:  = function(const a: variant; indexcount: SizeInt; indices: PLongint)
             : variant; cdecl;
    vararrayput:  = procedure(var a: variant; const value: variant; indexcount: SizeInt; 
             indices: PLongint); cdecl;
    writevariant:  = function(var t: text; const v: variant; width: LongInt) : Pointer;
    write0Variant:  = function(var t: text; const v: Variant) : Pointer;
  end;