1 var 2 StartTime, EndTime: cardinal; 3 begin 4 StartTime := GetTickCount; 5 sleep(1000); 6 EndTime := GetTickCount; 7 caption := (IntToStr(EndTime - ...
需要注意的是，open一般用于查询（select），exesql用于修改，插入，删除（update，insert，delete） 增加 with dm.DataModule1.ADOQuery1 do begin close; sql.Clear; sql.Add('insert into 表 (字 ...
分类：
数据库 时间：
2020-04-06 23:47:15
阅读次数：
139
所谓断点，就是在程序代码的某一行上设置一个标记，程序执行到这里将暂停，由调 试器接管对程序的控制。使用断点与使用【Runto Cursor】命令有些相似，都是执行到某 一行后暂停。不同的是，程序中可以设置多个断点并且能够给断点设置条件。 断点通常设置在有疑点的区域。在遇到断点之前，程序以全速运行。遇 ...
1、变量的定义 VAR 变量名：变量类型； 例：var sex:string; (冒号与分号都是英文输入) 同类型的多个变量的定义 VAR 变量名1，变量名2，变量名3：变量类型； 例：var sex,taste,grade:string; 2、变量的命名 （1）首字符必须是英文。 （2）只能由英文 ...
引用 System.Diagnostics 单元 属性： Elapsed 获取当前实例测量得出的总运行时间。 ElapsedMilliseconds 获取当前实例测量得出的总运行时间（以毫秒为单位）。 ElapsedTicks 获取当前实例测量得出的总运行时间（用计时器计时周期表示）。 IsRunn ...
UniGUI介绍 : http://www.unigui.com/ Examples (Mobile) : http://prime.fmsoft.net/demo/touch/mdemo65.dll/m Delphi编程技巧大全: http://www.delphitop.com/html/uni ...
分类：
其他好文 时间：
2020-04-03 11:54:50
阅读次数：
131
在Delphi 5 中，它的Object Inspector又有了新的功能上的增强，这就是属性分类。 属性分类 看下面的图3.1，这会注意到在状态栏中的这句话："2 hidden."这表明我们现在可以从Object Inspector的视图中隐藏属性。这就是将要谈到的属性分类的一部分特性。 Delp ...
分类：
其他好文 时间：
2020-04-03 00:37:24
阅读次数：
82
type TForm1 = class(TForm) private procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND; end; ...... procedure TForm1.WMSysCommand(va ...
第三方RC控件的安装 浏览器搜索Delphi Rz控件下载，找到下载一个安装文件，解压后点击RC3.exe一键安装。 Delphi WinFrm工程最小化到托盘 Delphi新建WinFrm工程，在主窗体上添加TRzTrayIcon、TImageList和TPopupMenu。此时运行工程，点击最小 ...
2003年我加入CSDN，6年之后离开。在2003年之后，我的技术身份就很难界定了。曾经有个朋友称我为“技术文化人”——不以软件开发为生，但整天都在拿软件开发来说事，与这个行业的整体关系可能比任何一个具体的程序员或者架构师都更密切。听上去像是一种恭维，又好像是暗讽，似乎我是站在戏台下面带头起哄的票友 ...
分类：
其他好文 时间：
2020-03-28 15:01:31
阅读次数：
142
