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; // case 
end;

最新文章

1. 4D卓越团队-两天培训总结
2. R语言获取国内的股票数据
3. Yii CModel中rules验证 获取错误信息
4. go 入门之环境搭建-Windows
5. Mobile Web调试工具Weinre (reproduce)
6. 高德地图iOS SDK限制地图的缩放比例
7. linux内核宏container_of
8. Linux中与环境变量相关的函数
9. glibc学习介绍篇
10. 转TransactionProxyFactoryBean代理事务
11. C语言-06数据类型-05 总结
12. 关于UPdate用法的
13. ZRender源码分析4：Painter(View层)-中
14. java.net.SocketException: Connection reset 解决方法
15. PAT (Basic Level) Practise （中文）-1021. 个位数统计 (15)
16. Hot Research Topics
17. C语言--第六周作业
18. java书写、数据类型、数组定义
19. python编程学习--Pygame - Python游戏编程入门(0)---转载
20. 爬虫之Resquests模块的使用（二）

热门文章

1. Maven 项目报告插件
2. msp430学习笔记-IO及低功耗
3. select选中事件
4. bzoj 2571: Getting Rid of the Holidays
5. bzoj4153 [Ipsc2015]Familiar Couples
6. 自己写的jQuery放大镜插件效果(二)(采用只有一张图片的思路)
7. 进程池----Pool（老的方式）----回调
8. [Flutter] Windows平台Flutter开发环境搭建（Andorid Studio）
9. 为挂载到/home的RAID磁盘组扩容
10. 49. jdk-6u45-linux-i586.bin安装步骤