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），见重载方法。
虚拟和动�
相关文档：
我的办法，增加一个timer 设置间隔100ms，通过timer的使能否，控制报警声音开关
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Windows.Beep(1200+i_f,10+i_f);
if i_f<2000 then
begin
inc(i_f);
end
end;
== ......
相对用第三方控件，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'+'< ......
最近面试了一家企业,下面有一道从来没有想过的问题,当时有思路,不过写不出来.回来后,调试了一下,发现还是有难度的,写上来看大家是否还有更优化的写法,欢迎讨论:
下面实现将字符串"10ad200d3" 中的数字合计,10+200+3=213
var s1:string;
var i:integer;
var n1:integer;
var tem1: string;
var tem2:integer;
......
Windows 下一个典型的特征就是多任务，我们可以同时打开多个窗口进行操作，也可以同时运行程序的多个实例，比如可以打开许多个资源管理器进行文件的移动复制操作。但有时出于某种考虑（比如安全性），我们要做出一些限制，让程序只能够运行一个实例。在Delphi编程中，笔者总结出了以下几种方法：
一、 查找窗口法
� ......
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. ......
