OleVariant 형을 스트링으로 변환하는 방법

uses
Variants; 

* 헤더 부분에 추가

 

---------------------------------------------------------

function VarToStr(const V: Variant): string;
-> str := VarToStr(Variant);

function VarToStrDef(const V: Variant; const ADefault: string): string;
-> str := VarToStr(Variant, 'String');

function VarAsType(const V: Variant; AVarType: TVarType): Variant;
-> str := VarAsType(Variant, varString);