编码笔记

导航

2015年1月4日 #

日期格式的正则表达式收集

摘要: 这里是判断YYYY-MM-DD这种格式的^((((1[6-9]|[2-9]\d)\d{2})-(0?[13578]|1[02])-(0?[1-9]|[12]\d|3[01]))|(((1[6-9]|[2-9]\d)\d{2})-(0?[13456789]|1[012])-(0?[1-9]|[12]\... 阅读全文

posted @ 2015-01-04 18:17 封三郎 阅读(1031) 评论(0) 推荐(1) 编辑

2014年11月17日 #

利用QJSON将FDQuery转成JSON串

摘要: 服务器要支持Http协议,打算采用Http+JSON的方式来交换数据。一开始考虑使用superobject,因为以前使用比较多,比较熟悉。代码如下: 1 class function FDQueryToSJSON(aQuery : TFDQuery) : string; 2 3 class fun... 阅读全文

posted @ 2014-11-17 15:22 封三郎 阅读(1585) 评论(1) 推荐(0) 编辑

2014年10月24日 #

DateTimePicker如何与Delphi自带Style同步

摘要: Delphi 的 DateTimePicker 组件有一个CalColors属性,可以设置 DropDown 打开的日历节目的风格。但如果不使用 Delphi 自带的 Style,在这里设置属性看不到期望的效果。而使用了 delphi 自带的style,效果又存在瑕疵——日历面板大小有问题。如果把自... 阅读全文

posted @ 2014-10-24 00:49 封三郎 阅读(1797) 评论(0) 推荐(0) 编辑

2014年9月18日 #

用泛型实现对枚举的通用处理

摘要: 写代码的时候遇到一个问题,想写一个通用方法来实现对枚举的类型的操作,如获取枚举的项的列表,获取一个枚举值的索引等等,本来以为很简单,写一个函数:functionGetEnumNames(枚举类): TArray结果发现这个参数怎么搞也搞不对,不知道传一个什么样的参数可以支持所有枚举类型,因为函数内会... 阅读全文

posted @ 2014-09-18 19:59 封三郎 阅读(4983) 评论(0) 推荐(0) 编辑

2014年7月15日 #

写一个日志类用于跟踪调试

摘要: 根据自己的工作需要,借鉴了网上一些分析和尝试,自己写了一个日志的单元用于服务器的跟踪调试。unit LogUnit;interfaceuses System.Classes,System.SysUtils,System.Generics.Collections,Windows,Forms,IOUt... 阅读全文

posted @ 2014-07-15 11:25 封三郎 阅读(1141) 评论(0) 推荐(0) 编辑

2014年7月2日 #

Delphi用QJSON解析JSON格式的数据

摘要: 本来用superobject来解析JSON已经够用了,可惜这个东东不能在移动端使用,于是找到QJSON来处理。这是一个国内高手写开源免费的东西,赞一个。假入数据如下:{"message":"ok","status":"1","state":"3","data":[{"time":"2012-07-0... 阅读全文

posted @ 2014-07-02 19:27 封三郎 阅读(6517) 评论(1) 推荐(0) 编辑

2014年5月20日 #

Http协议访问DataSnap Rest 服务器

摘要: 用TIDHttp访问DataSnap Rest服务器,在服务器采用了用户验证的情况下,客户端需要注意下面的细节,否则不能正常连接。假如服务器有如下的用户验证:procedure TSC.DSAuthenticationManager1UserAuthenticate(Sender: TObject;... 阅读全文

posted @ 2014-05-20 15:51 封三郎 阅读(2297) 评论(3) 推荐(0) 编辑

2013年8月14日 #

由于@@ServerName等问题对SQL增量升级脚本进行补充

摘要: 由于@@ServerName在安装数据库之后修改了机器名的情况下,获取到的内容仍然是原来的机器名,造成数据库连接失败,所以不能直接使用该全局变量。此外对升级脚本的执行方式做了一下调整,将版本的判断放到子脚本去判断,调度脚本仅对子脚本进行调度。-- 根据SQL的版本好确定启用xp_cmdshell的方式。declare @DBVersion varchar(50)select @DBVersion= cast(serverproperty('productversion') as varchar(50))declare @index intselect @index = char 阅读全文

posted @ 2013-08-14 14:25 封三郎 阅读(392) 评论(1) 推荐(0) 编辑

2013年8月5日 #

通过TCustomAttribute和反射实现动态查询(三)

摘要: 利用TCustomAttribute和反射实现动态查询的管理。 在XE4中实现。 阅读全文

posted @ 2013-08-05 14:23 封三郎 阅读(508) 评论(0) 推荐(0) 编辑

通过TCustomAttribute和反射实现动态查询(二)

摘要: 利用TCustomAttribute和反射实现动态查询的管理。 在XE4中实现。 阅读全文

posted @ 2013-08-05 14:20 封三郎 阅读(603) 评论(0) 推荐(0) 编辑