函数指针 方法指针

函数指针 方法指针

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TEvent  =  procedure () of object;
  TProc  =  procedure();

  TForm1  =   class (TForm)
    btn1: TButton;
    procedure btn1Click(Sender: TObject);
   private
     { Private declarations }
   public
     { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
begin
  showmessage( ' 方法指针的长度是: ' + Inttostr(SizeOf(TEvent)));
  showmessage( ' 函数指针的长度是: ' + Inttostr(SizeOf(TProc)));
end;

// 函数指针是指向函数的32位指针，占4个字节。
// 过程的指针结构如下
//   PProc = ^TProc; // 过程指针
// 　TProc = record
// 　　Code: Pointer; // 指向过程的代码
// 　end;
// 方法指针是指向一个结构。方法的指针结构如下
//   PMethod = ^TMethod; // 方法指针
// 　TMethod = record
// 　　Code: Pointer; // 指向方法的代码
//     Data: Pointer; // 指向对象的数据
// 　end;



end.