指向函數的指針，指向過程的指針。(50分)

L

leway

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-24

• #1

在delphi中怎樣實現指向函數的指針和指向過程的指針，請分別舉例說明。

 

H

huawdg

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-24

• #2

var
PFunc:function(Params):funcType;
PProcrocedure(Params);

function AFunc(Params):funcType;
begin
end;
procedure AProc(Params);
begin
end;

PFunc:=@AFunc;//函數的指針
PProc:=@AProc;//過程的指針

AResult:=PFunc(Params);//使用函數的指針
PProc(Params);//使用過程的指針

 

X

xeen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-24

• #3

type TNotifyEvent = procedure (Sender: TObject) of object;
var
OnClick:TNotifyEvent;

 

L

leway

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-24

• #4

怎樣把一個函數指針復給一個函數。使該函數功能與函數指針指向的函數功能相同。
比如：
var
PFunc:function(Params):funcType;
function A(Params) : funcType;
function AFunc(Params):funcType;
begin
end;
PFunc:=@AFunc;//函數的指針
A:=PFunc;//函數的指針PFunc指向的函數復給函數A，請問這樣可以實現嗎？

 

H

huawdg

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-24

• #5

不可以！
PFunc 不是已经达到你的目的了吗？

 

L

leway

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-24

• #6

謝謝