向上帝打申请了,下辈子再也不做程序员!! 上帝批复:OK!

随笔分类 -  delphi自定义函数

摘要:通过ADOQuery或其它数据集组件的Sort属性配合DBGrid的OnTitleClick事件,可以方便地实现此功能。因为Sort属性可以让活动数据集按指定的字段进行排序,也可以选择排序方式(升序/降序)。我改进了一下这功能,在单击标题后分别在标题加上三角(▲)和倒三角形(▼)表示当前排序方式为升序和降序;(gaowenjie)procedure TForm1.DBGri... 阅读全文
posted @ 2010-09-17 14:56 zywuhao 阅读(526) 评论(0) 推荐(0)
摘要:function FilterQryByDBG(aQry: TQuery; aDBGrid: TDBGrid; aFilterValue: string): string; //对DBGrid的指定列的过滤var FieldNO: Integer; Condition: string;begin with aQry do begin if not Active then Exit; Fi... 阅读全文
posted @ 2010-09-17 14:54 zywuhao 阅读(397) 评论(0) 推荐(0)
摘要:做网络程序时, 经常用到内存之间的相互复制转换函数.于是写下了下面一些函数{------------------------------------------------------------- 单元: BaseFunc 日期: 200306 24 作者: 王寒松 Administrator 说明: 一些基础操作函数---------------------------------------... 阅读全文
posted @ 2009-03-25 13:49 zywuhao 阅读(1242) 评论(0) 推荐(0)
摘要:unit uzxString;interface uses Classes,SysUtils; const DELIMITER_LF = #10; const DELIMITER_CR = #13 ; const DELIMITER_BLANK = ' '; const DELIMITER_COMMA = ','; { izx interface }type zxCharSet = s... 阅读全文
posted @ 2009-03-25 10:09 zywuhao 阅读(769) 评论(0) 推荐(0)
摘要:{========================================================================= 功 能: 网络函数库 时 间: 2002/10/02 版 本: 1.0 备 注: 没有事情干,抄抄写写整理了一些网络函数供大家使用。 希望大家能继续补充===================================... 阅读全文
posted @ 2009-03-25 09:47 zywuhao 阅读(346) 评论(0) 推荐(0)