Delphi之静态方法,虚方法virtual,动态dynamic,抽象abstract,消息

Delphi之静态方法,虚方法virtual,动态dynamic,抽象abstract,消息

http://www.cnblogs.com/zhwx/archive/2012/08/28/2660555.html

对象的方法能定义成静态(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表示是重新声明的方法；用于方法的名称与祖先类中的某个方法名称相同的情形)

//---------------------http://bbs.csdn.net/topics/220062579

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

//夫类，抽象类
  TParent = class
  protected
    function MyFun(i: Integer): Integer; virtual; abstract;
    //抽象方法(纯虚方法)，只有定义没有实现，一个类包含一个即成抽象类，抽象类不能直接创建对象。
  end;

//子类
  TChild = class(TParent)
  protected
    function MyFun(i: Integer): Integer; override;  //覆盖
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TChild }

function TChild.MyFun(i: Integer): Integer;
begin
  Inc(i);
  Result := i;
end;

//测试
procedure TForm1.FormCreate(Sender: TObject);
var
  p: TParent;
  c: TChild;
begin
  p := TChild.Create;  //抽象类只能通过其子类创建对象
  c := TChild.Create;

  ShowMessage(IntToStr(p.MyFun()));  //
  ShowMessage(IntToStr(c.MyFun()));  //

  p.Free;
  c.Free;
end;

end.

小结：delphi中有abstract的就叫纯虚方法，就是抽象类。而abstract必须定义在 virtual、dynamic 之后。

没有abstract定义的virtual、dynamic的方法不一定是纯虚的，因为他们可以实现自己的东西。

接口的方法就是纯虚方法（默认的）。

发现：接口中的方法定义为procedure 在实现类中却可以写成function 可以有返回值，只要名字相同即可编译通过，偶然发现。