delphi 函数指针 方法指针

unit Unit1;
None.gif
None.gif
interface

None.gif
None.gifuses
None.gif  
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
Forms,
None.gif   Dialogs,
StdCtrls;
None.gif
None.giftype
None.gif  
TEvent
= procedure ()
of object;
None.gif   TProc
=
procedure();
None.gif
None.gif  
TForm1
= class
(TForm)
None.gif     btn1:
TButton;
None.gif     procedure
btn1Click(Sender: TObject);
None.gif 
private

ExpandedBlockStart.gifContractedBlock.gif   
dot.gif{ Private declarations }
None.gif 
public
ExpandedBlockStart.gifContractedBlock.gif   
dot.gif{ Public declarations }
None.gif  
end;
None.gif
None.gifvar
None.gif  
Form1: TForm1;
None.gif
None.gifimplementation
None.gif
ExpandedBlockStart.gifContractedBlock.gif
dot.gif{$R *.dfm}
None.gif
None.gifprocedure
TForm1.btn1Click(Sender: TObject);
None.gifbegin
None.gif  
showmessage(
'方法指针的长度是:'+Inttostr(SizeOf(TEvent)));
None.gif  
showmessage(
'函数指针的长度是:'+
Inttostr(SizeOf(TProc)));
None.gifend;
None.gif
None.gif
//
函数指针是指向函数的32位指针,占4个字节。
None.gif
//
过程的指针结构如下
None.gif
//   PProc
= ^TProc;
//
过程指针
None.gif
//
 TProc = record
None.gif
//  Code:
Pointer;
//
指向过程的代码
None.gif
//
 end;
None.gif
//
方法指针是指向一个结构。方法的指针结构如下
None.gif
//  
PMethod = ^TMethod;
//
方法指针
None.gif
//
 TMethod = record
None.gif
//  Code:
Pointer;
//
指向方法的代码
None.gif
//    
Data: Pointer;
//
指向对象的数据
None.gif
// end;

None.gif

None.gif
None.gif
None.gifend.

转载于:https://www.cnblogs.com/wangorg/archive/2011/04/07/2008045.html

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值