Delphi之virtual,dynamic,abstract

对象的方法能定义成静态(static)、虚拟(virtual)、动态(dynamic)或消息处理(message)。请看下面 
的例子:

TFoo = class 
procedure IAmAStatic; 
procedure IAmAVirtual; virtual; 
procedure IAmADynamic; dynamic; 
procedure IAmAMessage(var M:TMessage); message wm_SomeMessage; 
end;

1. 静态方法 
IAmAStatic 是一个静态方法,静态方法是方法的缺省类型,对它就像对通常的过程和函数那样调 
用。编译器知道这些方法的地址,所以调用一个静态方法时它能把运行信息静态地链接进可执行文件。 
静态方法执行的速度最快,但它们却不能被覆盖来支持多态性。

2. 虚拟方法 
IAmAVirtual 是一个虚拟方法。虚拟方法和静态方法的调用方式相同。由于虚拟方法能被覆盖,在 
代码中调用一个指定的虚拟方法时编译器并不知道它的地址。因此,编译器通过建立虚拟方法表(VMT) 
来查找在运行时的函数地址。所有的虚拟方法在运行时通过VMT来调度,一个对象的VMT表中 
除了自己定义的虚拟方法外,还有它的祖先的所有的虚拟方法,因此虚拟方法比动态方法用的内存要 
多,但它执行得比较快。

3. 动态方法 
IAmADynamic 是一个动态方法,动态方法跟虚拟方法基本相似,只是它们的调度系统不同。编译 
器为每一个动态方法指定一个独一无二的数字,用这个数字和动态方法的地址构造一个动态方法表 
(DMT)。不像VMT表,在DMT表中仅有它声明的动态方法,并且这个方法需要祖先的DMT表来访问 
它其余的动态方法。正因为这样,动态方法比虚拟方法用的内存要少,但执行起来较慢,因为有可能 
要到祖先对象的DMT中查找动态方法。

4. 消息处理方法 
IAmAMessage 是一个消息处理方法,在关键字message后面的值指明了这个方法要响应的消息。 
用消息处理方法来响应Windows的消息,这样就不用直接来调用它。

5. 方法的覆盖 
在Object Pascal覆盖一个方法用来实现OOP的多态性概念。通过覆盖使一方法在不同的派生类间 
表现出不同的行为。Object Pascal中能被覆盖的方法是在声明时被标识为virtual或dynamic的方法。为 
了覆盖一个方法,在派生类的声明中用override代替virtual或dynamic。例如,能用下面的代码覆盖 
IAmAVirtual和IAmADynamic方法:

TFooChild = class(TFoo) 
procedure IAmAVirtual; override; 
procedure IAmADynamic; override; 
procedure IAmAMessage(var M:TMessage); message wm_SomeMessage; 
end;

用了override关键字后,编译器就会用新的方法替换VMT中原先的方法。如果用virtual或dynamic替换 
override重新声明IAmAVirtual和IAmADynamic,将是建立新的方法而不是对祖先的方法进行覆盖。同样, 
在派生类中如果企图对一个静态方法进行覆盖,在新对象中的方法完全替换在祖先类中的同名方法。

6. 方法的重载 
就像普通的过程和函数,方法也支持重载,使得一个类中有许多同名的方法带着不同的参数表, 
能重载的方法必须用overload指示符标识出来,可以不对第一个方法用overload。下面的代码演示了一 
个类中有三个重载的方法:

type 
TSomeClass = class 
procedure AMethod(I:Integer); overload; 
procedure AMethod(I:String); overload; 
procedure AMethod(Iouble); overload; 
end;

7. 重新引入方法名称 
有时候,需要在派生类中增加一个方法,而这个方法的名称与祖先类中的某个方法名称相同。在 
这种情况下,没必要覆盖这个方法,只要在派生类中重新声明这个方法。但在编译时,编译器就会发 
出一个警告,告诉你派生类的方法将隐藏祖先类的同名方法。要解决这个问题,可以在派生类中使用 
reintroduce指示符,下面的代码演示了reintroduce指示符的正确用法: 
type 
TSomeBase = class 
procedure Cooper; 
end; 
TSomeClass = class(TSomeBase) 
procedure Cooper; reintroduce; 
end;

8. Self 
在所有对象的方法中都有一个隐含变量称为Self,Self是用来调用方法的指向类实例的指针。Self 
由编译器作为一个隐含参数传递给方法。

virtual,dynamic: 虚拟方法和动态方法,在语义上是等价的,只是前者是时间最优,后者是空间 
abstract 抽象方法是那些在类中声明但未实现的虚拟方法或动态方法。 
抽象方法的实现推延到后裔类中。 
声明抽象方法必需在指示字virtual或dynamic之后使用abstract。 
例如: procedure DoSomething; virtual; abstract; 
不能调用没有实现或没有定义声明的抽象方法。

override 重载,实现多态。实现或覆盖virtual,dynamic,abstract的声明 
overload 再定义一个名称相同但参数不同的函数. (调用时自动根据参数选择) 跟class object 没有关系

stdcall 使用标准的win32参数传递技术. 其他如register,cdecl,pascal

message 消息处理

(reintroduce表示是重新声明的方法;用于方法的名称与祖先类中的某个方法名称相同的情形)

版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。

相关推荐


 从网上看到《Delphi API HOOK完全说明》这篇文章,基本上都是大家转来转去,原文出处我已经找不到了。这篇文章写的很不错,但最后部分“PermuteFunction 的终极版本”描述的不太清楚,完全按照该文章代码执行,是不行的。可能是作者故意这样做的?本文最后提供修正后的下载地址。原文如下:一、关于API Hook1.什么是API Hook不知道大家是否还记得,在DO
  从网上看到《Delphi API HOOK完全说明》这篇文章,基本上都是大家转来转去,原文出处我已经找不到了。 这篇文章写的很不错,但最后部分“PermuteFunction 的终极版本”描述的不太清楚,完全按照该文章代码执行,是不行的。需要修改mess.pas中代码才行。其实文中提到的一个结构,代码中并没有使用typePIMAGE_IMPORT_DESCRIPTOR = ^IMA
ffmpeg 是一套强大的开源的多媒体库 一般都是用 c/c++ 调用, 抽空研究了一下该库的最新版 ,把部分api 翻译成了dephi版的 记录一下 地址 ffmpegvcl.zip
32位CPU所含有的寄存器有:4个数据寄存器(EAX、EBX、ECX和EDX)2个变址和指针寄存器(ESI和EDI) 2个指针寄存器(ESP和EBP)6个段寄存器(ES、CS、SS、DS、FS和GS)
1 mov dst, src dst是目的操作数,src是源操作数,指令实现的功能是:将源操作数送到目的操作数中,即:(dst) <--(src) 1.dst和src类型必须匹配,即必须同为字节
有三个API函数可以运行可执行文件WinExec、ShellExecute和CreateProcess。 1.CreateProcess因为使用复杂,比较少用。 2.WinExec主要运行EXE文件。如:WinExec('Notepad.exe Readme.txt', SW_SHOW); 3.ShellExecute不仅可以运行EXE文件,也可以运行已经关联的文件。 首先必须引用shellapi
API原型: Declare Function MoveFileEx& Lib "kernel32" Alias "MoveFileExA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal dwFlags As Long) 参数 类型及说明 lpExistingFileName String,欲移
附带通用控件安装方法: ---------- 基本安装 1、对于单个控件,Componet-->install component..-->PAS或DCU文件-->install; 2、对于带*.dpk文件的控件包,File-->Open(下拉列表框中选*.dpk)-->install即可; 3、对于带*.bpl文件的控件包,Install Packages-->Add-->bpl文件名即可; 4
type   TRec=Record     msg:string;     pic:TMemoryStream; end; procedure TForm2.BitBtn1Click(Sender: TObject); var   ms:TMemoryStream;   Rec1,Rec2:TRec;   cc:tmemorystream;   jpg:TJPEGImage; begin   R
program Project1; { Types and Structures Definition } type   WNDCLASSEX = packed record     cbSize: LongWord;     style: LongWord;     lpfnWndProc: Pointer;     cbClsExtra: Integer;     cbWndExtra: In
   在Windows大行其道的今天,windows界面程序受到广大用户的欢迎。对这些程序的操作不外乎两种,键盘输入控制和鼠标输入控制。有时,对于繁杂 的,或重复性的操作,我们能否通过编制程序来代替手工输入,而用程序来模拟键盘及鼠标的输入呢?答案是肯定的。这主要是通过两个API函数来实现的。      下面以Delphi为例来介绍一下如何实现这两个功能。模拟键盘我们用Keybd_event这个ap
delphi中经常见到以下两种定义 Type TMouseProc = procedure (X,Y:integer); TMouseEvent = procedure (X,Y:integer) of Object; 两者样子差不多但实际意义却不一样, TMouseProc只是单一的函数指针类型; TMouseEvent是对象的函数指针,也就是对象/类的函数/方法 区
Windows 2000/XP和2003等支持一种叫做"服务程序"的东西.程序作为服务启动有以下几个好处:     (1)不用登陆进系统即可运行.     (2)具有SYSTEM特权.所以你在进程管理器里面是无法结束它的.     笔者在2003年为一公司开发机顶盒项目的时候,曾经写过课件上传和媒体服务,下面就介绍一下如何用Delphi7创建一个Service程序.     运行Delphi7,选
方法一: 1.调试delphi 写的服务程序,有这么一个办法。原来每次都是用attach to process方法,很麻烦。并且按照服务线程的执行线路,可能会停不到想要的断点。笨办法是,在procedure TsvcFrm.ServiceExecute(Sender: TService);中想要下断的语句前加个人定胜天的sleep(20000),但实际上这种办法是主观臆测的。可行,没问题。记得大学
Delphi For iOS开发指南(17):让应用程序禁止竖屏(也就是只显示横屏)     最近好多人问,怎么样让Delphi For iOS开发的应用程序禁止竖屏,也就是想让它一直横屏显示,横屏是好,一行可以放好几个控件,表格的话也可以多显示几列,看起来方便。 只要一句代码就可以让Delphi For iOS开发的应用程序禁止竖屏,如下: Application.FormFactor.Orie
一个比较完整的Inno Setup 安装脚本,增加了对ini文件设置的功能,一个安装包常用的功能都具备了。 [Setup] ; 注: AppId的值为单独标识该应用程序。 ; 不要为其他安装程序使用相同的AppId值。 ; (生成新的GUID,点击 工具|在IDE中生成GUID。) AppId={{A9861883-31C5-4324-BD9A-DC3271EEB675} ;程序名 AppName
在Delphi自带的Indy控件中其实是提供了MD2,MD4,MD5对象的,我们可以直接使用它们来完成MD5的签名算法。而不需要再去找其它的DLL或是Pas了。 在Uses单元中引用 IdHashMessageDigest,IdGlobal, IdHash 单元,再写如下代码即可以达到MD5的实现。 示例代码 procedure TForm1.Button1Click(Sender: TObjec
在Delphi 7下要制作系统托盘,只能制作一个比较简单的系统托盘,因为ShellAPI文件定义的TNotifyIconData结构体是比较早的版本。定义如下: 1 2 3 4 5 6 7 8 9 _NOTIFYICONDATAA = record    cbSize: DWORD;    Wnd: HWND;    uID: UINT;    uFlags: UINT;    uCallback
声明: 1. type Name = Existing type; 2. type Name = type Existing type; 3. type Name = (EnumValue1 [=value], EnumValue2 [=value] ...); 4. type Name = Expression1..Expression2; 5. type Name = ^Existing ty