我的Java方面博客

天下難事必做于易，天下大事必做于細

公告

鄭重聲明
http://www.aygfsteel.com/zhangsk/
本博客未作說明的所有文章
和作品均為原創，全部版權
歸著作人張樹坤所有，侵權
必究。
歡迎網絡媒體轉載，但必注
明作者和出去。報刊圖書媒
體轉載需作者書面同意。
E-Mail：zhangsk.cn@gmail.com
http://www.zhangsk.cn

我的個人網站
 我在163上的Blog

留言簿(1)

隨筆分類

隨筆檔案

文章檔案

2007年8月 (1)

閱讀排行榜

評論排行榜

常用鏈接

統計

隨筆 - 10
文章 - 1
評論 - 1
引用 - 0

函數指針方法指針

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.

posted on 2007-09-03 16:08 張樹坤閱讀(536) 評論(0) 編輯收藏所屬分類: Delphi

新用戶注冊刷新評論列表


只有注冊用戶登錄后才能發表評論。




網站導航: 博客園 IT新聞 Chat2DB C++博客博問管理