Fun\u00e7\u00e3o para verificar um tipo de vari\u00e1vel<\/p>\n
function GetVariantType(const v: variant): string;
\nbegin
\ncase TVarData(v).vType of
\nvarEmpty: result := ‘Empty’;
\nvarNull: result := ‘Null’;
\nvarSmallInt: result := ‘SmallInt’;
\nvarInteger: result := ‘Integer’;
\nvarSingle: result := ‘Single’;
\nvarDouble: result := ‘Double’;
\nvarCurrency: result := ‘Currency’;
\nvarDate: result := ‘Date’;
\nvarOleStr: result := ‘OleStr’;
\nvarDispatch: result := ‘Dispatch’;
\nvarError: result := ‘Error’;
\nvarBoolean: result := ‘Boolean’;
\nvarVariant: result := ‘Variant’;
\nvarUnknown: result := ‘Unknown’;
\nvarByte: result := ‘Byte’;
\nvarString: result := ‘String’;
\nvarTypeMask: result := ‘TypeMask’;
\nvarArray: result := ‘Array’;
\nvarByRef: result := ‘ByRef’;
\nend;
\nend;<\/p>\n","protected":false},"excerpt":{"rendered":"
Fun\u00e7\u00e3o para verificar um tipo de vari\u00e1vel function GetVariantType(const v: variant): string; begin case TVarData(v).vType of varEmpty: result := ‘Empty’;…<\/p>\n","protected":false},"author":2,"featured_media":29286,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"_kadence_starter_templates_imported_post":false,"_kad_post_transparent":"","_kad_post_title":"","_kad_post_layout":"","_kad_post_sidebar_id":"","_kad_post_content_style":"","_kad_post_vertical_padding":"","_kad_post_feature":"","_kad_post_feature_position":"","_kad_post_header":false,"_kad_post_footer":false,"footnotes":""},"categories":[9,13],"tags":[27,28,14],"class_list":["post-66","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-delphi","category-desenvolvimento-de-sistemas","tag-delphi","tag-desenvolvimento-de-sistemas","tag-programacao"],"yoast_head":"\n