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），见重载方法。
虚拟和动�
相关文档：
在开讲之前，首先，我假设你了解什么是面向对象，什么是类。如果不了解的话，建议先去了解一下相关知识！
在Delphi中，组件，我们可以将它理解为一个个的封装好了的功能对象库，使用这个库，就只用简单的几句代码，甚至仅仅简单的设置几个属性就能实现某些
功能，我们可以将组件想象成日常生活中使用的某些 ......
在网上看到很多人都在为Delphi是否支持C++/Java中的静态变量及静态方法的功能而困扰,其实这在Delphi中是很简单的.
静态方法就是使用Class Function. 静态变量则使用单元局部变量来实现. 代码如下:
//=========================================
// StaticVarTestU - 定义了可以计数的类，通过类方法即可访问此类的对象数 ......
delphi TWebBrowser组件使用详解
该组件是一个浏览器组件，可以显示一个指定地址的网页、设置网页打开时的主页以及对网页进行相关的操作，同时也可以对HTML文件进行剪切、复制、粘贴、删除等操作。该
组件在Internet组件页中。
......
C# Delphi处理分析QQ协议
大家说到QQ协议都觉得很神秘，是因为QQ不像MSN或者ICQ协议都已经官方公布了，而QQ的没有公布。研究它的人也不是特别的多，虽然已经有了基于 QQ协议所写成的第三方软件 foicq, qq plugins for gaim, LumaQQ，但是由于他们是基于二进制Stream的协议过于复杂，大家阅读代码也有� ......
function ExpCalc(exp: string): string;
var
vScript: Variant;
begin
vScript := CreateOleObject('ScriptControl');
vScript.Language := 'VBScript';
Result := vScript.Eval(exp);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
begin
s:=ExpCalc('100 *4.17/0.5*(55. ......
