No hay respuestas en este tema

[sir.dev.a.lot]

delphi

function GetVariantType(const v: variant): string;
	begin
	  case TVarData(v).vType of
	    varEmpty: result := 'Empty';
	    varNull: result := 'Null';
	    varSmallInt: result := 'SmallInt';
	    varInteger: result := 'Integer';
	    varSingle: result := 'Single';
	    varDouble: result := 'Double';
	    varCurrency: result := 'Currency';
	    varDate: result := 'Date';
	    varOleStr: result := 'OleStr';
	    varDispatch: result := 'Dispatch';
	    varError: result := 'Error';
	    varBoolean: result := 'Boolean';
	    varVariant: result := 'Variant';
	    varUnknown: result := 'Unknown';
	    varByte: result := 'Byte';
	    varString: result := 'String';
	    varTypeMask: result := 'TypeMask';
	    varArray: result := 'Array';
	    varByRef: result := 'ByRef';
	  end; 
	end;

Saludos!