[转]delphi的procedure of object

Posted

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了[转]delphi的procedure of object相关的知识,希望对你有一定的参考价值。

    理论:     //适用于实现不是某一特定过程或函数
          type
               TNotifyEvent = procedure(Sender: TObject) of object;
      首先:procedure 也是类型,可以理解为过程类型,定义过程的参数结构,而具体的实现可以动态赋值
 onclick那样例子:
     声明:  onclick= procedure(Sender: TObject,a :integer) of object;以后你就可以把TNotifyEvent作为过程用了,而不用考虑它实现什么功能,你想onclik  里用户写了什么,都是一样的
        if assign(onclick) then
          onclick;
     这样只要TNotifyEvent可以执行,程序就去执行它,控件就是这样实现事件的
     procedure 指针占4个字节,保存在过程的地址. procedure of object占8个字节,保存过程的地址和类的地址
     procedure of object 是类过程(类函数),用法如下:
         1、与普通函数相同点:可以像一般的函数和过程一样在类的实例里作为对象方法调用;
         2、与普通函数不同点:可以不通过对象,而是通过类来直接调用。
    也就是说,一般函数和过程必须通过类的实例(对象)来调用,而类过程(类函数)则可以不必通过该类的实例来调用。通过类来调用函数或者过程,可以定义和实现一些不能或者不适合作为某一特定对象行为的方法。
  应用:
     delphi中经常见到以下两种定义
     Type
         TMouseProc = procedure (X,Y:integer);  //一种普通的过程
         TMouseEvent = procedure (X,Y:integer) of Object;//一种对象方法的类型

      两者样子差不多但实际意义却不一样,两者的区别就在于TMouseEvent类型的方法必须在一个对象里。类方法存在一个隐藏参数self,也就是说两者形参不一样,所以不能相互转换 .
   TMouseProc只是单一的函数指针类型;
   TMouseEvent是对象的函数指针,也就是对象/类的函数/方法

 procedure   TForm1.BBB(I:   Integer);
begin
    showmessage( ‘BBB: ‘   +   IntToStr(I));
end;

procedure   TForm1.CCC(I:   Integer);
begin
    showmessage( ‘CCC: ‘   +   IntToStr(I));
end;

procedure   TForm1.Button1Click(Sender:   TObject);
    type
        Taaa   =   procedure   (i:integer)   of   object   ;
var
    ap:   Taaa;
begin
    ap   :=   BBB; //这里有一个隐含Self,完整格式: self.BBB;这里把BBB这个方法赋给ap这个变量,注意BBB与ap的声明原型要一样,不然会有错
    ap(1);
    ap   :=   CCC;
    ap(2);
end;

以上是关于[转]delphi的procedure of object的主要内容,如果未能解决你的问题,请参考以下文章

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

delphi 数组作为参数传递

[转]delphi中array of const 借鉴

转:Delphi 安卓App自动升级

怎么在delphi中读取Excel数据 转

delphi怎样在一个procedure中调用另一个procedure?