随笔分类 -  基础算法

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

点击右上角即可分享
微信分享提示