指针问题，请高手指教。300分(300分)

Q

q.yuhen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-02-28

• #1

有两个过程，要在过程二中调用过程一，但无法确定过程一的名称。所以希望在过程二
的参数中使用一个指针变量，该变量在初始化时被指向过程一的地址，问题是，我该如
何利用此地址，以达到执行过程一的目的。

请高手给出演示例程。

 

吕

吕雪松

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-02-28

• #2

type

TNotifyEvent = procedure(Sender: TObject) of object;
TMainForm = class(TForm)
procedure ButtonClick(Sender: TObject);
...
end;
var
MainForm: TMainForm;
OnClick: TNotifyEvent

we could make the following assignment.

OnClick := MainForm.ButtonClick;

 

M

mikedeakins

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-02-28

• #3

是呀，查一下vcl的源代码就可以了。

 

S

sonie

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-02-28

• #4

type
tp1=procedure(...) of object;//定义tp1类型参数类型跟第一个过程一样
...
var
p1:tp1;//定义p1
...
p1:=...;//初始化p1
...

procedure p2;
begin
p1;//调用p1
end;

 

Q

q.yuhen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-01

• #5

谢谢！

可我希望是通过指针操作。