PASCAL指针和过程的问题(50分)

H

HORNEY

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-16

• #1

各位请看;
ＴＹＰＥ ＴＡ=ＣＬＡＳＳ(ＴＢＵＴＴＯＮ)
ＰＲＯＣＥＤＵＲＥ ＩＮＶＯＫＥ(ＭＮＡＭＥ: ＳＴＲＩＮＧ);
ＰＲＯＣＥＤＵＲＥ ＧＯ;
ＰＲＯＴＥＣＴＥＤ
ＳＴＡＴＵＳ;ＩＮＴＥＧＥＲ
ＥＮＤ;

ＰＲＯＣＥＤＵＲＥ ＴＡ.ＩＮＶＯＫＥ(ＭＮＡＭＥ: ＳＴＲＩＮＧ);
ＶＡＲ ＰＲＯ
ＰＲＯＣＥＤＵＲＥ;
ＢＥＧＩＮ
@ＰＲＯ;=ＳＥＬＦ.ＭＥＴＨＯＤＡＤＤＲＥＳＳ(ＭＮＡＭＥ);
ＰＲＯ;
ＥＮＤ;

ＰＲＯＣＥＤＵＲＥ ＴＡ.ＧＯ;
ＢＥＧＩＮ
ＳＴＡＴＵＳ:=３;//这里会有ＡＣＣＥＳＳ ＶＩＯＬＡＴＩＯＮ错误
ＥＮＤ;
这是一个ＤＥＬＨＩ过程类型的问题,通过ＭＮＡＭＥ能够将ＴＡ.ＧＯ的指针给ＰＲＯ
ＰＲＯ也能顺利调用ＴＡ.ＧＯ,但是只要它对类成员的操作都会错误,ＯＴＨＥＲＳ都正
常,敢问各位是怎么回事.
(ＣＯＭＭＥＮＴ:之所以类一开始要继承一个ＴＢＵＴＴＯＮ,是因为ＭＥＴＨＯＤＡＤＤＲＥＳＳ
只对ＶＣＬ成员有用)

 

B

Brave

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-16

• #2

@ＰＲＯ;=ＳＥＬＦ.ＭＥＴＨＯＤＡＤＤＲＥＳＳ(ＭＮＡＭＥ);

写错了吧
@ＰＲＯ;=ＳＥＬＦ.ＭＥＴＨＯＤＡＤＤＲＥＳＳ(GO);

 

H

HORNEY

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-16

• #3

没错,ＭＥＴＨＯＤＡＤＤＲＥＳＳ是用字符串来定位过程的.

 

H

HORNEY

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-16

• #4

加上一点前提条件
１.类已被正确创建.
２.全部代码均被正确编译,即没有被ＯＰＴＩＭＩＺＥ的代码.

 

V

varphone

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-16

• #5

Wha,your font is so large,it's very difficult Browsing!

 

H

HORNEY

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-16

• #6

大家倒是想个办法呀，分我会另加的，求求各位了
555。。。
另：我分配内存也试过了，也不行。

 

H

HORNEY

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-16

• #7

应“话机变量”兄要求，将代码重贴一启遍。
Type TA = Class(TButton)
procedure Invoke(Mname: string);
procedure Go;
Protected
Status: Integer

End;

procedure TA.Invoke(Mname: string);
Var Pro: Procedure;
begin
@Pro;=Self.MethodAddress(Mname);
pro;
end;

Procedure TA.Go;
begin
Status:=３;//这里会有ＡＣＣＥＳＳ ＶＩＯＬＡＴＩＯＮ错误
End;
这是一个ＤＥＬＨＩ过程类型的问题,通过ＭＮＡＭＥ能够将ＴＡ.ＧＯ的指针给ＰＲＯ
ＰＲＯ也能顺利调用ＴＡ.ＧＯ,但是只要它对类成员的操作都会错误,ＯＴＨＥＲＳ都正
常,敢问各位是怎么回事.
(ＣＯＭＭＥＮＴ:之所以类一开始要继承一个ＴＢＵＴＴＯＮ,是因为
ＭＥＴＨＯＤＡＤＤＲＥＳＳ只对ＶＣＬ成员有用)

 

Y

yysun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-16

• #8

您的 Invoke 可以这样写：

procedure TA.Invoke(Mname: string);
type Call = procedure of object;
Var Method: TMethod;
begin
Method.Data := self;
Method.Code := self.MethodAddress(Mname);
Call(Method);
end;

 

W

wenyue

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-16

• #9

错误的原因很简单,PROCEDURE OF OBJECT和PROCEDURE的调用是不同的
进栈的个数不同,PROCEDURE OF OBJECT相当于要进栈其SELF
这样,我们才能在类方法里使用类成员,如果没有SELF,DELPHI是无法用到其类成员的

我们把类看成是一个记录,而类成员方法是记录内的一个函数指针
我们调用这个函数的时候,类成员方法根据堆栈来找出自己的记录地址,也就是SELF
这样我们才可以根据相对偏移访问到其类成员

具体的实现我们可以从MAKEOBJECTINSTANCE这个函数里看出些端倪

因为你调用INVOKE的PRO的时候,当成的是过程而非PROCEDURE OF OBJECT,所以
调用PRO的时候是不会将SELF进栈的(有的语言有时候用EAX表示SELF地址),因此导致
访问STATUS出现内存访问冲突错误.
如果我们申明使用的PRO为PROCEDURE OF OBJECT,就肯定没问题了

注意:存贮PROCEDURE OF OBJECT的变量是8字节,PROC则是4字节.
而METHODADDRESS返回的只有4字节的地址
所以我们需要将8字节的高位设置为SELF

PINTEGER(@@PRO+4)^:=@SELF;
@PRO:=SELF.METHODADDRESS(MNAME);

你该给我加600分了,好累

 

H

HORNEY

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-16

• #10

多谢。