随笔分类 - 基础算法
经典公式,经典函数,经典理论
摘要:记得我是在delphi2005里面看到Record可以和Class一样定义方法(Function、Procedure)的,最近几年不像年轻时太爱看语言新特性了。Delphi XE2将正则表达式加入到了系统,成为体系的一部分 System.RegularExpressions,但是它表现出来的是TRegEx记录,对,是记录,不是类,也许是为了效率考虑,之后也从没有看过实现,虽然我们大家都知道Delh...
阅读全文
摘要:前几天看到一个帖子,讨论两个记录复制,贴主提出了一个解决方案,但是不想用,希望大家集思广益,让人没想到的是方法还真的挺多,这里罗列一下。这是需要复制的的两种记录TypeA = record value1 : word; value2 : word; value3 : word; end;TypeB = record b1 : byte; b2 : byte; end;方案1:...
阅读全文
摘要:很早以前看《Delphi 4从入门到精通》有这么一个概念——CallBack。然后在《Delphi 6从入门到精通》看同样的章节,翻译为“回调”,就有一个疑问了,什么是Callback\“回调”,到底是读回“diao”,还是回“tiao”。 后来明白了——2005年的某天,这个概念在C、Pascal
阅读全文
摘要:下面的函数用来压缩access数据库 需要增加ComObj单元 //压缩与修复数据库,覆盖源文件 function CompactDatabase(AFileName,APassWord:string):boolean; const SConnectionString = 'Provider=Mic
阅读全文
摘要:(1) 一刻钟 古时利用漏壶滴水计时,壶内有一把尺,尺上横刻了100条线,成为100格,每漏一格水称便为一刻钟,一刻大约等于15分钟左右。虽然如此,古人觉得一刻钟只是很短的时间。不少有刻字的成语,都是代表短暂、急促的意思,例如︰顷刻之间。 (2) 间与顷 谈及很短的时间,中国固有的说法一定包括间或顷
阅读全文
摘要:function isFileInUse(aName: string): boolean; var hfileres: hfile; begin result := false; if not FileExists(aName) then exit; hfileres := createfile(p
阅读全文
摘要:function isruninvmware(out errmsg: string): boolean; begin result := false; try asm push edx push ecx push ebx mov eax, 'vmxh' mov ecx, $0a mov edx, '
阅读全文
摘要:这个是“橙子”2008年总结的删除目录的办法: 以往删除目录时,都需要先用递归删干净目录下的文件和子文件夹,这样做的时候,如果文件数量大,那么删除会非常慢于是找了个方便一点的方法,直接使用api将目录删除 代码如下: function deldirectory(const source: strin
阅读全文