Delphi通过inherited 可以调用父类的方法,但是没有提供直接调用父类的父类的方法(爷爷类),通过变通的方式实现如下:
假设父类是TFar,爷爷类TGrand,调用爷爷类的Write方法:
type TWriteProc=procedure of Object; var WriteProc:TWriteProc; .... TMethod(WriteProc).Code:[email protected]; TMethod(WriteProc).Data:=Self; WriteProc;
时间: 2024-11-08 10:48:59