还是关于虚拟方法的问题。。
看到一篇文章说一个对象的VMT表中除了自己定义的虚拟方法外，还有它的祖先的所有的虚拟方法。但是今天跟进去看了看VMT发现只有它自己的虚拟方法，这是什么原因，难道又是编译器决定在某些时候不在VMT中写入祖先的虚拟方法？
[解决办法]
先构造一这样段代码：
type TBase = class public procedure FooVirtual1; virtual; procedure FooVirtual2; virtual; procedure FooDynamic1; dynamic; procedure FooDynamic2; dynamic; procedure GetAddrs(var V1, V2, D1, D2: Pointer); end; TFoo = class(TBase) procedure FooVirtual1; override; procedure FooDynamic1; override; end;procedure TForm1.Button1Click(Sender: TObject);var v1, v2, d1, d2: Pointer;begin Memo1.Clear; with TBase.Create do begin GetAddrs(v1, v2, d1, d2); Memo1.Lines.Add(Format('[%p] %s', [Pointer(ClassType), ClassName])); Memo1.Lines.Add(Format(#9'v1: %p'#9'v2: %p'#9'd1: %p'#9'd2: %p', [v1, v2, d1, d2])); Free; end; with TFoo.Create do begin GetAddrs(v1, v2, d1, d2); Memo1.Lines.Add(Format('[%p] %s', [Pointer(ClassType), ClassName])); Memo1.Lines.Add(Format(#9'v1: %p'#9'v2: %p'#9'd1: %p'#9'd2: %p', [v1, v2, d1, d2])); Free; end;end;{ TBase }procedure TBase.FooDynamic1;beginend;procedure TBase.FooDynamic2;beginend;procedure TBase.FooVirtual1;beginend;procedure TBase.FooVirtual2;beginend;procedure TBase.GetAddrs(var V1, V2, D1, D2: Pointer);type Tfoo = procedure of object;var method : TMethod; foo : TFoo absolute method;begin foo := FooVirtual1; V1 := method.Code; foo := FooVirtual2; V2 := method.Code; foo := FooDynamic1; D1 := method.Code; foo := FooDynamic2; D2 := method.Code;end;{ TFoo }procedure TFoo.FooDynamic1;beginend;procedure TFoo.FooVirtual1;beginend;