摘要：相信字符串处理中用的最多的就是 pos 函数了。但是如果要搜索一个字符串中第二次或者第三次出现的子字符串的，就没有现成的 delphi 标准函数了。所以我就自己写了一个。同时和网上比较流行的 faststrings.smartpos() 和 jvcl.npos() 做了比较，速度更快，而且兼容 unicode(widestring/widechar)。注：代码可能有人会觉得不太舒服，但作为最常用的......
摘要：uses dao97,dao2000;
procedure compactmdbdatabase(srcdbname,dstdbname,oldpwd,newpwd:string;baccess97:boolean=true);var idbengine:_dbengine;begin if oldpwd <> then oldpwd := ;pwd=+oldpwd; if newp......
拖拉打开文件
procedure dragdropfiles(var message: tmessage); message wm_dropfiles; 【程序编程相关:
关联规则进行数据挖掘】 【推荐阅读:
第 1 部分: 发现 SOA 中的信息管】 【扩展信息:
配置 DB2 V8.1 来编译存储过程】
procedure tfm_main.dragdropfiles(var message: tmessage);
var p: array[0..254] of char; i: word; begin inherited; i := dragqueryfile(message.wparam, $ffffffff, nil, 0); for i := 0 to i - 1 do ...
下一页 摘要：接下来要动手来做一个组件了，我想了一个计数器组件，功能方面是比较简单的，但这不是本章的重点，这一章的重点是说明一个组件的制作全过程。在其中可以学到很多组件制作的技巧，当然这些也是我从书上学得的。好了，开始制作吧： 这是一个可以计数的组件，为了简单，我以秒为单位，当开始时，他就从0开始增加，并显示出来，到3600时，它又回到0，如此循环。当然它也可以停止，暂停，继续。另外，他还有一个时间事件，即可以......
