Delphi IDE中包含一个Data Explorer的组件,如下图所示: 该组件基于dbExpress(包含TSQLConnection、TSQLDataSet、TSQLQuery、TSQLStoredProc、TSQLTable、TsqlServerMethod、TSQLMonitor、TSi Read More
posted @ 2016-06-16 00:35
findumars
Views(1385)
Comments(0)
Diggs(0)
这是一个实例: procedure TMainForm.Button1Click(Sender: TObject);var arr:array of array of string;begin setlength(arr,2,3); arr[1,2]:='this is a test'; setle Read More
posted @ 2016-06-16 00:34
findumars
Views(885)
Comments(0)
Diggs(0)
今天写了一个类,其中用到了TXMLDocument控件。这个控件我是要动态生成的。 但是却遇到了非常奇怪的问题,下面分享一下 procedure TMainForm.Button1Click(Sender:TObject); Var XML:TXMLDocument; I:Integer; begi Read More
posted @ 2016-06-16 00:32
findumars
Views(2226)
Comments(0)
Diggs(1)
Delphi中 Round函数有个Bug一旦参数是形如 XXX.5这样的数时如果 XXX 是奇数 那么就会 Round up如果 XXX 是偶数 那么就会 Round down例如 Round(17.5)=18但是 Round(12.5)=12下面的函数即可纠正这个 Bug 但是是临时性的执行 Do Read More
posted @ 2016-06-16 00:30
findumars
Views(586)
Comments(0)
Diggs(0)
Windows 下一个典型的特征就是多任务,我们可以同时打开多个窗口进行操作,也可以同时运行程序的多个实例,比如可以打开许多个资源管理器进行文件的移动复制操作。但有时出于某种考虑(比如安全性),我们要做出一些限制,让程序只能够运行一个实例。在Delphi编程中,笔者总结出了以下几种方法: 一、 查找 Read More
posted @ 2016-06-16 00:29
findumars
Views(1265)
Comments(0)
Diggs(0)