那么动态代理有什么用？ 这要先从GoF的Proxy模式说起。 假设有下面这样一个接口及其实现： 现在，如果你是这个接口的用户，而这个接口及其实现者提供了一个： Foo : IFoo; 给你，其中Foo指向TFooImpl的一个实例。现在你有了IFoo的定义，和这个Foo实例--注意，你没有TFo...

2008-04-09 04:21:39

CodeColor 是一个美化网页中源代码的程序，它可以把要添加到网页中的代码文本进行语法上色、格式化处理，这样别人再浏览你网页里的例程时，会看到和 IDE 里相似的效果。目前实现了 Delphi 语法部分。 处理效果如下： //┏━━━━━━━━━━━━━━┓ //┃ 代码着色...

2008-04-09 04:21:38

第二部分：基类 TCodeColor 一、本章说明 暂时先公开基类代码，和子类的部分代码，子类中字符分析函数 Analyzer 的实现暂时不公开，主要出于这样的考虑： 1、基类已实现大部分共用功能，但是还不完善，代码也不规范。特别是各个版本的 Analyzer 中都会用到这些功能，所...

2008-04-09 04:21:37

文/jorge 有了前述的数据，编写接口层似乎已经不成问题了。现在来构思一下程序运行的过程。说句实话，那种对于某种变化实时作出响应的程序，一般都用什么方法编成，本人并不很了解，推测无非是两种思想，一种是用一个线程不断地对这个变化进行检查，发现改变则动作；另...

2008-04-09 04:21:36

最近上班总有一些零散的事情要处理，要负责同事们电脑的日常维护，以及一些软硬件方面的问题。所以就没有太多的时间用来读书。而且更加郁闷的是，上周末由于访问一个网站造成电脑中毒，尝试了很多方法清除都未能成功。病毒文件在安全模式下删除后重新启动又恢复了，修...

2008-04-09 04:21:35

Delphi7 中存储 unicode 的 BUG ？ 近日，在用 delphi7 做 unicode 的程序时发现了这样一个问题，就是使用 TADOCommand 组件执行 sql 语句时，如果 sql 语句中有 unicode 字符，存储在数据库里会出现乱码，使用 TTntADOQuery 也是一样（使用参数方式不会出现乱码，这里...

2008-04-09 04:21:33

(********************* PL0 编译程序Turbo Pascal代码 *********************) program pl0(fa,fa1,fa2); (* PL0 compile with code generation *) label 99; (* Turbo Pascal do not support goto between different blocks so, the ''''goto'''' command in getch a...

2008-04-09 04:21:31

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); var s:String; begin TDBGrid(Sender).DefaultDrawColumnCell(Rect,DataCol,Column,State); s:=Column.Field.DisplayText;...

2008-04-09 04:21:28

DFW里有朋友问： 有多个jpg文件,如: 1.jpg 2.jpg 3.jpg ...... 怎样将这些文件以追加形式合并成一个新的jpg文件?也就是说1.jpg作为第一页,2.jpg作为第二页,如此类推. 想了一下，思路就是把每个jpeg文件解码成位图以后进行拼接再编码为jpeg uses ..., Jpeg; ...... proc...

2008-04-09 04:21:27

文/jorge 不得不说，捕获扫雷窗口以及取得它的数据，是本程序的一个难点。现在这个难点已经解决，接下来，完成接口层已经不是问题了。那么，来看接口层的两个核心过程： ================================================================= //取得整个雷区每个方块的...

2008-04-09 04:21:24