摘要：
unit FunkFrm; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TFunkForm = class(TForm) Button1: TButton; procedure Button1Cli... 阅读全文
2005年7月16日 #
摘要：
“类引用”不过是内存中的某个区域，其中包含了相关类的信息，这和类的类型定义是一回事。当用VCL流系统或RegisterClass()函数注册这个类时，类引用就会进入内存。FindClass()函数查找内存区域，定位某个指定类名的类，并返回一个指向那个位置的指针，这不同于类实例。类实例通常是创建于调用构造函数时。例如：TChildFormClass = class of TChild... 阅读全文
摘要：
在创建包之前，需要就一些事情做出决策。首先，需要知道将要创建的包的类型（运行期包、设计期包等）。需要根据不同的情况选择包的类型，这一点我们马上就会说明。第二，要知道给新创建的包取个什么样的名字，以及把这个包项目存放在什么地方。记住存放配置好的包的目录也许并不是创建包的目录。最后，需要知道这个包包含哪些单元以及它还需要哪些其他的包。 1. 包编辑器 最常见... 阅读全文
摘要：
使用DLL来为它们的服务器应用程序存放管理窗体会导致DLL拥有自己的Forms.pas文件副本。将将会引起一个不可思议的错误，该错误与Windows的窗口句柄处理有关。Windows窗口句柄处理产生于DLL中——当DLL被卸载时，窗口句柄却不能被操作系统解除参照。下一个穿过队列被发往顶层窗口的消息会导致应用程序出错，这样操作系统就会因为应用程序处于非法状态而将它关闭。使用包代替DL... 阅读全文
2005年7月15日 #
摘要：
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) private { Private declarations } public { Public de... 阅读全文
摘要：
unit UfrmMain; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TfrmMain = class(TForm) btn1: TButton; btn2: TButton; btn3:... 阅读全文
摘要：
No.1 Delphi中的Include文件 begin ShowMessage({$I File1.txt}; //有错吗？ ShowMessage(UpperCase({$I File1.txt}); end; //新建一个文本文件“File1.txt”、内容填写为:“'Hello Word')”看看 No.2 可爱的强制转换 var B: Byte begin Char(B) ... 阅读全文
摘要：
根据〖中华人民共和国国家标准 GB 11643-1999〗中有关公民身份号码的规定，公民身份号码是特征组合码18位：由十七位数字本体码和一位数字校验码组成。排列顺序从左至右依次为：六位数字地址码，八位数字出生日期码，三位数字顺序码和一位数字校验码。 地址码表示编码对象常住户口所在县(市、旗、区)的行政区划代码。生日期码表示编码对象出生的年、月、日，其中年份用四位数字表示，年、月、日之间不用分隔符。... 阅读全文
摘要：
1.数论算法 求两数的最大公约数 function gcd(a,b:integer):integer; begin if b=0 then gcd:=a else gcd:=gcd (b,a mod B); end; 求两数的最小公倍数 function lcm(a,b:integer):integer; begin if a0 do inc(lcm,a); end; 素数的求法 A.小范围内判断... 阅读全文
摘要：
使用方法, uses 本单元——>使用如:Pub.MsgBox('你好，欢迎使用本公用函数！');ShowMessage(Pub.PathExeDir); //////////////////////以下源码开始{$DEFINE Delphi6}//D5下不要此句unit PubFuncUnit;interfaceuses Windows, SysUtils, ShellAPI, Messages... 阅读全文