Delphi调用爷爷类的方法，自己构建一个procedure of Object

2023-11-20 12:53•移动端•阅读 2806

Delphi通过inherited 可以调用父类的方法，但是没有提供直接调用父类的父类的方法（爷爷类），通过变通的方式实现如下：

假设父类是TFather，爷爷类TGrand，调用爷爷类的Write方法：

type

TWriteProc=procedureofObject;

var

WriteProc:TWriteProc;

....

TMethod(WriteProc).Code:=@TGrand.Write;

TMethod(WriteProc).Data:=Self;

WriteProc;