BlogJava-我的程序驿站-随笔分类-Delphi

BlogJava-我的程序驿站-随笔分类-Delphihttp://www.blogjava.net/zhangsk/category/25458.html天下难事必做于易，天下大事必做于细zh-cnMon, 03 Sep 2007 13:15:50 GMTMon, 03 Sep 2007 13:15:50 GMT60函数指针方法指针http://www.blogjava.net/zhangsk/archive/2007/09/03/142356.html张树坤张树坤Mon, 03 Sep 2007 08:08:00 GMThttp://www.blogjava.net/zhangsk/archive/2007/09/03/142356.htmlhttp://www.blogjava.net/zhangsk/comments/142356.htmlhttp://www.blogjava.net/zhangsk/archive/2007/09/03/142356.html#Feedback0http://www.blogjava.net/zhangsk/comments/commentRss/142356.htmlhttp://www.blogjava.net/zhangsk/services/trackbacks/142356.html

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.

张树坤 2007-09-03 16:08 发表评论

]]>