编码笔记

摘要： 这里是判断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]\... 阅读全文

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

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

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

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

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

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

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

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

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