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

Posted findumars

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了Delphi调用爷爷类的方法(自己构建一个procedure of Object)相关的知识,希望对你有一定的参考价值。

Delphi通过inherited 可以调用父类的方法,但是没有提供直接调用父类的父类的方法(爷爷类),通过变通的方式实现如下:

假设父类是TFather,爷爷类TGrand,调用爷爷类的Write方法:

1
2
3
4
5
6
7
8
9
type
  TWriteProc=procedure of Object;
var
  WriteProc:TWriteProc;
 
....
  TMethod(WriteProc).Code:=@TGrand.Write;
  TMethod(WriteProc).Data:=Self;
  WriteProc;

  https://www.cnblogs.com/hezihang/p/4139656.html

以上是关于Delphi调用爷爷类的方法(自己构建一个procedure of Object)的主要内容,如果未能解决你的问题,请参考以下文章

delphi中覆盖override父类的静态方法和虚函数有啥不同?

delphi datasnap service服务叫啥

Delphi函数详解:全局函数,内部函数,类的成员函数,类的静态方法

你好,请教一个问题,delphi如何调用DLL中的一个带动态数组参数的方法?

Delphi中的Form中怎么调用Frame,ShowFrame()好像可以

delphi 中TMemoryStream类的具体用法