使用多态实现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提供的动态东西，最直接的就是动态数组。如果把所有子类的�
相关文档：
获取post，或者get返回的cookie，除了过滤返回的字符串之外，最简单的方法是使用idhttp的CookieManager属性
比如获得IDhttp返回的全部Cookie
if idhttp1.CookieManager.CookieCollection.Count > 0 then
for i := 0 to idhttp1.CookieManager.CookieCollection.Count - 1 do
temp := temp + idhttp1.Cooki ......
Client:TSocketConnection 和Server: Scktsrvr关系----压缩数据传输
一直用SocketConnection和服务端的传输数据在三层数据库中，从来没有注意到它们之间的数据传输，只是想着，管它了，网络的事，前段时间在Delphi中的Demos中发现Demos\Midas\Intrcpt.dpr例子，呵呵，再看了半天的VCL发现可以将Client端发送的给Server的� ......
开发步骤：
1、创建ActiveX Library工程。
2、创建COM Object。
3、创建Type Library，并创建相应接口。
4、创建接口对应的函数和实现。
具体如下：
1、创建COM Object。
new|other|activeX|com object
在Class Name(本例里类名里填Object，可按自己需要填写) 填写类名.(Instancing:实例创建方式,Threading Model:� ......
Delphi中调用Windows自带的图片和传真浏览器查看图片，可以旋转图片也可以调用画图程序编辑图像。自己写不出来好的代码，就用系统自带的好了。
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,ShellAPI;
type
TForm1 = class(TFo ......
分类
运算符
操作
操作数
结果类型
范例
算术运算符
+
加
整数，实数
整数，实数
X + Y
-
减
整数，实数
整数，实数
Result - 1
*
乘
整数，实数
整数，实数
P * InterestRate
/
实数除
整数，实数
实数
X / 2
div
整数除
整数
整数
Total div UnitSize
mod
取模
整数
整数
Y mod 6
......
