当前位置: 首页 > news >正文

系统门户网站建设常用功能/新闻发稿渠道

系统门户网站建设常用功能,新闻发稿渠道,网站建设网站制作,phpcms v9网站建设入门为什么80%的码农都做不了架构师?>>> Variants 单元下的 VarType 函数可以获取变量类型, 但它返回的只是一个数字; 需要再结合一下在 System 单元里定义的这些常量: varEmpty $0000; varNull $0001; varSmallint $0002; varInteger $0003; v…

为什么80%的码农都做不了架构师?>>>   hot3.png

Variants 单元下的 VarType 函数可以获取变量类型, 但它返回的只是一个数字; 需要再结合一下在 System 单元里定义的这些常量:
varEmpty    = $0000;
varNull     = $0001;
varSmallint = $0002;
varInteger  = $0003;
varSingle   = $0004;
varDouble   = $0005;
varCurrency = $0006;
varDate     = $0007;
varOleStr   = $0008;
varDispatch = $0009;
varError    = $000A;
varBoolean  = $000B;
varVariant  = $000C;
varUnknown  = $000D;
varShortInt = $0010;
varByte     = $0011;
varWord     = $0012;
varLongWord = $0013;
varInt64    = $0014;
varStrArg   = $0048;
varString   = $0100;
varAny      = $0101;
varTypeMask = $0FFF;
varArray    = $2000;
varByRef    = $4000;
函数及测试如下:
unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs;typeTForm1 = class(TForm)procedure FormCreate(Sender: TObject);end;varForm1: TForm1;implementation{$R *.dfm}{函数}
function GetVarType(const v: Variant): string;
begincase VarType(v) ofvarEmpty    : 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';varShortInt : Result := 'ShortInt';varByte     : Result := 'Byte';varWord     : Result := 'Word';varLongWord : Result := 'LongWord';varInt64    : Result := 'Int64';varStrArg   : Result := 'StrArg';varString   : Result := 'String';varAny      : Result := 'Any';varTypeMask : Result := 'TypeMask';varArray    : Result := 'Array';varByRef    : Result := 'ByRef';end;
end;{测试}
procedure TForm1.FormCreate(Sender: TObject);
vari: Integer;w: Word;s: string;d: Double;
beginShowMessage(GetVarType(i)); {Integer}ShowMessage(GetVarType(w)); {Word}ShowMessage(GetVarType(s)); {string}ShowMessage(GetVarType(d)); {Double}
end;end.
这里有个类似的东西: http://www.cnblogs.com/del/archive/2008/05/09/1158858.html#1190739

转载于:https://my.oschina.net/hermer/blog/320964

http://www.lbrq.cn/news/1099279.html

相关文章:

  • dw做的网站怎么被别人打开/seo代码优化包括哪些
  • 网站服务器维护方案/网上网络推广
  • 昆明做网站哪家好/企业排名优化公司
  • 网站快速设计/seo网站推广批发
  • 闲置服务器做网站挣钱/网站建设方案外包
  • 承德网站制作公司/小红书推广方式有哪些
  • 永康网站建设/舆情分析
  • 个人未授权做的网站/百度站长平台官网登录入口
  • 忻州推广型网站开发/近期出现的病毒叫什么
  • dedecms 视频网站模板/semi final
  • 中小型网站建设流程/济宁百度竞价推广
  • 做网站的app/小吃培训机构排名前十
  • 网站开发 周期/搜狗搜索推广
  • 网站建设作业多少钱/百度网站首页网址
  • 营销网站的概念/百度智能云建站
  • 微信公众号影视网站怎么做/磁力蜘蛛
  • 网站注册域名位置/黑帽seo是什么意思
  • 上海快速建站/今日新闻 最新消息 大事
  • jsp做新闻网站/免费seo诊断
  • 网站建设目录结构doc/网络推广方案有哪些
  • 网页制作怎么插视频/广告优化师适合女生吗
  • 压铸东莞网站建设/东莞网站建设seo
  • 吉林省科瑞建设项目管理有限公司网站/对网站提出的优化建议
  • 网站源码网/国内免费域名注册网站
  • 做网站后端需要掌握什么技术/百度搜索排名优化哪家好
  • 厦门百度网站建设/自己建网站要多少钱
  • 免费ppt资源网站/南宁seo排名外包
  • 安徽论坛网站建设/广告多的网站
  • 政府网站建设工作存在的不足/百度网页版链接
  • 使用别人网站代码做自己的网站/搜索热门关键词
  • DBSCAN聚类算法
  • 解决win10下Vmware虚拟机在笔记本睡眠唤醒后ssh连接不上的问题
  • vscode创建vue项目报错
  • 架构设计衡量标准
  • 用 STM32 的 SYSTICK 定时器与端口复用重映射玩转嵌入式开发
  • LVS 集群技术基础