Unigui运行在chrome浏览器下可以有最佳的效果，但用ie打开用unigui做的项目会发现字体明显小一截，可以用自定义css来解决这个问题。 可以在UniServeModule的customcss属性中写入以下代码： <style type="text/css"> *{font-size:12 Read More
在目前的UniGUI(ver:0.88)中使用UniApplication.Cookies.SetCookie来设置一个中文的Cookies时，然后用UniApplication.Cookies.Values来读取Coolies值时，中文会变成乱码。查询UniGui论坛，得到以下解决方法： proc Read More
好多人都抱怨delphi没有提供一个可以把任意数据放入数据库的控件，虽然说用代码实现也不难，但是有控件会更方便，这次我终于还是抽出空来做了这么个控件，以后就可以直接拖放了。它支持把任意数据类型写入数据库，也可以从数据库读出到流，或是直接保存为文件。另外，我加了一些对常用图像的处理，保存 jpg或是g Read More
主要是要读取数据库的信息，而delphi界面是一个树形结构。 例如有一个Ascess数据库：示例.MDB，内有一张表：“国家”，表的内容如下： 编号 名称 01 中国 0101 吉林省 010101 长春市 010102 吉林市 0102 江苏省 010201 南京市 010202 常州市 02 美 Read More
//delphi 7 Delphi汉字简繁体转换代码unit ChineseCharactersConvert; interface uses Classes, Windows; type TGBBIG5Convert = class(TObject) public class function B Read More
记得曾写过类似功能，但由于对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