记得曾写过类似功能，但由于对Delphi数据类型不清楚，要花不少代码去处理中文被切半而出现乱码的尴尬。后来知道只需把字符串定义成 WideString 即可解决半个中文的问题了。 实现过程：不停地剪切标题的第1个字符放到最后一位，OK。 1、定义一个全局变量保存显示到标题栏的字符串varstrScr Read More
IsNumeric 判断字符串是否为数字，如果是数字返回true,如果包含有汉字或字符的话返回false. 由于Delphi本身没有IsNumeric这个函数，不像其它语言，这个函数相当于Java的IsNaN函数。 delphi代码function IsNumeric(AStr: string): Read More
function ToDBC( input :String):WideString;varc:WideString;i:Integer;beginc := input;for i:=1 to Length(Input) dobeginif (Ord(c) = 12288) thenbeginc := Read More
procedure setLocalDateTime(Value: TDateTime);var lSystemDateTime: TSystemTime;begin DateTimeToSystemTime(Value, lSystemDateTime); SetLocalTime(lSystem Read More
StyleBook 介绍及VICEN对皮肤控件的一些看法可以说StyleBook的出现，简直是皮肤控件厂商的噩梦，因为用户可以通过StyleBook快速切换控件样式，而不需要在去购买第三方换肤控件，对于免费并且是官方集成的StyleBook来说，优势不言而喻。因此，以后的皮肤控件除非有自己的特色，例 Read More