游子日月长

摘要： 一、开使你的第一个DLL专案 1.File->Close all->File->New﹝DLL﹞代码: //自动产生Code如下 library Project2; //这有段废话 uses SysUtils, Classes; {$R *.RES} begin end. 2.加个Func进来： 代 阅读全文

摘要： 首先，在TForm的私有域，也就是private下设置两个变量ProgressBar、ProgressBarRect，其中ProgressBar为 TProgressBar类型，ProgressBarRect为TRect类型，完整的定义如下：type TForm1 = class(TForm) .. 阅读全文

摘要： 一直都对QQ的好友列表很好奇，最先感觉用TreeView实现的，看了看TreeView的源码，发现要实现还真的不太好完成任务啊，其中最大的原因是自己的功力不足，后来觉得用ListView来做吧，结果也是失败，后来又想到ListBox，结果发现也是难成，最后发现有一个TDrawGrid，可以来绘制，但 阅读全文

摘要： 为什么使用接口？ 举个例子好了：有这样一个卖票服务，电影院可以卖票，歌剧院可以卖票，客运站也可以卖票，那么我们是否需要把电影院、、歌剧院和客运站都设计成一个类架构以提供卖票服务？要知道，连经理人都可以卖票，很显然不适合把经理人也包括到卖票服务的继承架构中，我们需要的只是一个共通的卖票服务。于是，卖票 阅读全文

摘要： 一、遍历 TStrings var List: TStrings; s: string; begin List := TStringList.Create; List.CommaText := 'aaa,bbb,ccc'; for s in List do ShowMessage(s); List.Free; end; 二、遍历数组 var Arr: ... 阅读全文

摘要： 某开盘后底开一直呈现形成了一个长时间的箱体振荡的走势，K线在底位振荡时，其波动底点总是在不断抬高的话，这种走势说明有资金在场中积极运作，正是由于资金悄然建仓导致了底点慢慢抬高的走势，在底点不断抬高时，投资者就需要重点关注了，一旦后期出现放量加速上涨，投资者便可以及时入场操作。 振荡结束后，在成交量放 阅读全文

摘要： 今天在做项目时，看到了一个从没见过的MySQL函数——FIND_IN_SET()，顿时就产生了浓郁的兴趣，然后就搜了搜，翻了翻。 语法：FIND_IN_SET(str,strlist) 定义： 1. 假如字符串str在由N子链组成的字符串列表strlist中，则返回值的范围在1到N之间。 2. 一个 阅读全文

摘要： 该函数返回带有来自一个组的连接的非NULL值的字符串结果。该函数是一个增强的Sybase SQL Anywhere支持的基本LIST()函数。 语法结构： GROUP_CONCAT([DISTINCT] expr [,expr ...] [ORDER BY {unsigned_integer | c 阅读全文

摘要： // 方法1 对象直接量 // 方法2 定义函数对象 // 方法3 原型继承 // 方法4 工厂模式 阅读全文

摘要： 我相信有无数的小盆友跟我一样很讨厌Win7快捷方式图标上的箭头，实在太丑陋了，尤其是带有强迫症滴。现在介绍去除箭头的方式。 1. 打开编辑器，将以下代码粘贴进去，然后保存为.bat后缀的文件，然后双击执行该文件即可。 2. 还有一种就是下载系统工具类软件，比如魔方电脑大师，带有此类优化工具，使用也更 阅读全文

摘要： 大家都认为，C语言之所以强大，以及其自由性，很大部分体现在其灵活的指针运用上。因此，说指针是C语言的灵魂，一点都不为过。同时，这种说法也让很多人产生误解，似乎只有C语言的指针才能算指针。Basic不支持指针，在此不论。其实，Pascal语言本身也是支持指针的。从最初的Pascal发展至今的Objec 阅读全文

摘要： 为什么要这样做？有时候我们需要一个非窗口组件(比如一个非继承自TWinContrl的组件)可以接受Windows消息。要接受消息就需要一个窗口句柄，但是非窗口组件却没有句柄。这篇文章将讲述怎么让一个没有句柄的组件如何通过一个隐藏的窗口接受消息这是怎么做到的？例如我的剪贴板查看组件就是一个不可视的组件 阅读全文

摘要： program AdminCMD;{$APPTYPE CONSOLE}uses Windows, ShellApi, SysUtils;function RunAsAdmin(const iExeName, iParam: String): Boolean;var SEI: TShellExecut 阅读全文

摘要： Delphi Class of 类引用也就是类的类型，也可说是指向类的指针 Type TControlCls = Class of TControl;function CreateComponent(ControlCls: TControlCls): TControl;begin result:=C 阅读全文