使用多态实现Delphi动态编程
本文使用一个简单实例讲述如何使用多态在Delphi中实现动态编程。
多态（Polymorphism）按字面的意思就是“多种形状”。引用Charlie Calverts对多态的描述——多态性是允许你将父对象设置成为和一个或更多的他的子对象相等的技术，赋值之后，父对象就可以根据当前赋值给它的子对象的特性以不同的方式运作。更多有关多态的讲述，请参考网络资料。
“动态语言“是一种在执行期间才去发现数据类型的程序设计语言，其有点在于其优良的扩展性，主要用于创建一些需要经常更新的动态系统。本文描述的动态编程，没有动态语言的意思，但是能让Delphi程序同样具有动态扩展的能力。
以Polymorphism的字面意思来举例，要实现一个画出各种形状的程序。刚开始，可能只需要实现画矩形、正方形的功能，但是可预知以后需要画其它图形。这很自然想到使用多态来实现，可是如何实现在增加其它形状时主程序完全不用修改呢？
一、实例描述：
1. 抽象类TGeometry（几何图形），它有一个画图形的抽象方法Draw()
2. 继承抽象类的子类：TRectangle（矩形）、TSquare（正方形）等等。所有类如下图
3. Main程序无须知道子类，只通过TGeometry画出各种图形，也无须关心当前有多少子类
4. 实例程序界面如下
界面左侧图形单选按钮的数量会根据TGeometry的子类数量变化。选不同单选按钮，会调用相应的Draw()方法在右侧画图
源代码下载（使用Delphi 2010编写）：>>>
二、通常情况下的实现
1. 抽象类（TGeometry）和子类（TRectangle）
2. 在主程序中使用TGeometry
这样使用的缺点是：当增加新形状时，主程序代码需要修改。究其原因，是因为“子类实例的创建”是静态写在代码中的。
接下来，想办法把子类的创建从主程序中剥离，是程序具有动态特性。
三、把形状类型从主程序中剥离
下面讲述如何逐步把“子类实例的创建”静态代码从主程序中剥离。
第一步，使用CASE语句把形状创建函数剥离
最简单的方式，就是使用case语句，根据不同形状调用不同子类的Create方法创建子类的实例。
这样DrawGeometry()被“解脱”了，可是CreateGeometry()又被“套住”了：每增加一个形状，需要增加一行代码。case语句实际上还是静态的。
第二步，消除CASE语句，实现真正的“动态”
要彻底消除“静态”，需要使用Delphi提供的动态东西，最直接的就是动态数组。如果把所有子类的�
相关文档：
Delphi操作注册表步骤如下：
-------------------------------------
1）在Uses中添加Registry单元；
2）声明TRegistry对象；
3）创建TRegistry对象；
4）指定根键；
----------------try------------------
5）打开需要操作的主键；
6）读写操作；
7）保存并关闭主键；
--------------finally----------------
......
我们能看到以下代码
var pSource,pDest:PChar;
len: integer;
.......................//一些代码
Move(pSource,pDest,len); //错误
Move(pSource^,pDest^,len); //正确
看起来确实好像是传值，而不是传地址，但是各位别忘了，这不是C，C++，而是Delphi
Object Pascal,所以，绝不能从函数� ......
Delphi拷贝目录(含子目录)的方法
要实现目录级的拷贝，可以利用Windows API函数ShFileOperation( )，其函数声明如下：
WINSHELLAPI int WINAPI SHFileOperation(
LPSHFILEOPSTRUCT lpFileOp
);
实例：
新建一个工程，其程序示例如下：
unit Unit1;
interface
uses
Windows, Messag ......
Client:TSocketConnection 和Server: Scktsrvr关系----压缩数据传输
一直用SocketConnection和服务端的传输数据在三层数据库中，从来没有注意到它们之间的数据传输，只是想着，管它了，网络的事，前段时间在Delphi中的Demos中发现Demos\Midas\Intrcpt.dpr例子，呵呵，再看了半天的VCL发现可以将Client端发送的给Server的� ......
// 判断是否是数值型 By yangxiao 2007.7.21
function isNumeric(strText: WideString): Boolean;
var
s: string;
i, l, p: Integer;
begin
Result := False;
l := Length(strText);
if l = 0 then Exit;
s := '';
for i:=1 to l do
......
