delphi virtual dynamic
dynamic就是它是动态方法，没有静态地址，所以速度慢一点
virtual是虚方法，如果在基类中不声明成虚方法的话，继承后，该方法会提示一警告信息，把基类中方法屏蔽掉了
---------------------------------------------------------------
动态（Dynamic）和虚拟（Virtual）后都可以使用Override关键字在派生类中对对应方法进行覆盖从而实现多态......
虚拟方法和动态方法在语义上可以说是等价的，他们唯一的区别在于对方法调用策略的内部实现上：虚拟方法从速度最优化的角度实现代码优化，而动态方法则是从空间最优的角度实现代码优化......
被覆盖的动态方法在派生类的VMT中不再出现........所以节省空间........但查询速度慢
被覆盖的虚拟方法在怕生类的VMT中再次出现........所以查询速度快......但浪费空间
---------------------------------------------------------------
虚拟方法和动态方法
要使一个方法成为虚拟的或动态的，需要在其声明中包括指示字virtual或dynamic。虚拟方法和动态方法不同于静态方法，它们可以在其后裔类中被覆盖（overridden）。当一个覆盖方法被调用时，方法调用中使用的类或对象的实际（运行时）类型决定了哪一个实现是有效的，而非变量声明的类型决定。
要覆盖一个方法，需要在再声明中使用指示字override。一个override声明必需与其祖先声明在参数顺序和类型以及结果（如果有）等各方面匹配。
下面的例子中，TFigure中声明的Draw方法在两个后裔类中都被覆盖。
type
TFigure = class
procedure Draw; virtual;
end;
TRectangle = class(TFigure)
procedure Draw; override;
end;
TEllipse = class(TFigure)
procedure Draw; override;
end;
对于上面给出的声明，下面的代码举例说明了在运行时通过一个变量调用虚拟方法时，其类型变化的效果。
var
Figure: TFigure;
begin
Figure := TRectangle.Create;
Figure.Draw; //调用的是TRectangle.Draw
Figure.Destroy;
Figure := TEllipse.Create;
Figure.Draw; //调用的是TEllipse.Draw
Figure.Destroy;
end;
只有虚拟方法和动态方法可以被覆盖。然而，所有的方法都可以被重载（overloaded），见重载方法。
虚拟和动�
相关文档：
距离上一篇系列的文章有一段时间了，假终于是放完了！现在咱继续在TEdit上做文章，同时来熟悉某些Windows的系统消息。现在我讲的是如何实现一个类似QQ编辑框的样式。
再讲解之前，先回馈前几篇文章有些人提出的问题。通过前几篇文章，有很多人关注，同时也有人给了一些建议。所以我这里说明一下，我这个组� ......
相对用第三方控件，CDO发送邮件还是很简洁方便的
注：CDONTS为CDO的子集，仅支持WinNT/Win2K，WinXP以上请用CDO;
单元引用ComObj;
procedure TForm1.Button1Click(Sender: TObject);
var
VCDOMessage:oleVariant;
begin
vCDOMessage:=CreateOleObject('CDO.Message');
vcdomessage.from:='MR.F'+'< ......
明天就是五一节了，辛苦了好几个月，借此机会应该尽情放松一番。可是想到Blog好久没有写文章，似乎缺些什么似的。这几个月来在项目中又增长了许多经验，学到许多实际应用的知识。不如把一些比较有用的记录下来，供朋友们参考可好。
我想到Delphi的事件，那可真是个方便的东西，初学者在窗体上拉几个� ......
Windows 下一个典型的特征就是多任务，我们可以同时打开多个窗口进行操作，也可以同时运行程序的多个实例，比如可以打开许多个资源管理器进行文件的移动复制操作。但有时出于某种考虑（比如安全性），我们要做出一些限制，让程序只能够运行一个实例。在Delphi编程中，笔者总结出了以下几种方法：
一、 查找窗口法
� ......
unit MyADO;
interface
uses
SysUtils, Classes,ADODB,DB,Variants,StdCtrls,Dialogs;
type
TMyADO = class(TComponent)
private
Connection: TADOConnection;
Query: TADOQuery;
Table: TADOTable;
FConnectio ......
