2016年6月16日
关于Delphi中二维数组的声明和大小调整（对非基本类型数据，小心内存泄漏）
这是一个实例： 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(888) Comments(0) Diggs(0)
Delphi中使用TXMLDocument控件应注意的问题
今天写了一个类，其中用到了TXMLDocument控件。这个控件我是要动态生成的。 但是却遇到了非常奇怪的问题，下面分享一下 procedure TMainForm.Button1Click(Sender:TObject); Var XML:TXMLDocument; I:Integer; begi Read More
posted @ 2016-06-16 00:32 findumars Views(2228) Comments(0) Diggs(1)
Delphi中取整函数Round的Bug解决
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(589) Comments(0) Diggs(0)
让程序只运行一个实例(Delphi篇)（三种方法，其中使用全局原子的方法比较有意思）
Windows 下一个典型的特征就是多任务，我们可以同时打开多个窗口进行操作，也可以同时运行程序的多个实例，比如可以打开许多个资源管理器进行文件的移动复制操作。但有时出于某种考虑（比如安全性），我们要做出一些限制，让程序只能够运行一个实例。在Delphi编程中，笔者总结出了以下几种方法： 一、 查找 Read More
posted @ 2016-06-16 00:29 findumars Views(1273) Comments(0) Diggs(0)
Delphi中三种方法获取Windows任务栏的高度
第一种：需要引用Windows单元 [delphi] view plain copy ShowMessage(IntToStr(GetSystemMetrics(SM_CYSCREEN)-GetSystemMetrics(SM_CYFULLSCREEN)-GetSystemMetrics(SM_CY Read More
posted @ 2016-06-16 00:27 findumars Views(1692) Comments(0) Diggs(0)