关于类型转换的问题，急急急！！！！！！！！！！！！！！(200分)

I

Iversonqiu03

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-04-25

• #1

在COM中使用以下，老提示出错“Invalid class typecast”
p_CtlOBJ := TCustomAction(G_SendObjWnd);//正常 G_SendObjWnd 是从主程序传进来的SYSINT类型的值
Self.Caption := p_CtlOBJ.Caption;
//正常

p_CtlOBJ.Caption := 'abc';
//错误出现

请高手指教，小弟有急用，在线等，谢了，如分不够可以再加…… 拜托拜托……

 

I

ivy1982

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-04-25

• #2

帮你订

 

I

Iversonqiu03

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-04-25

• #3

拜托，给点有意义的吧，无聊的就没来了，真的很急啊

 

U

uiit

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-04-25

• #4

不要直接引用对象属性作参数
弄个临时变量string类型作为传递参数吧
好像遇到过一次，但是不是Com里,没在意当时
var
str: string;
begin

str := 'abc';
p_CtlOBJ.Caption := str;
Self.Caption := str;
//或者p_CtlOBJ.Caption

 

I

Iversonqiu03

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-04-25

• #5

不行啊，还是照旧…… 还有哪位高手请指教一下……
最好是在COM中可以实现的

 

U

uiit

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-04-25

• #6

没看清，你是这个"Invalid class typecast"
你在强制类型转换的问题
检查你的三个类p_CtlOBJ, G_SendObjWnd, self
合不合乎向上转型（基类没有的派生类的实现方法被访问..），
或者向下转型（把派生类的方法当基类给访问了...）主要这两个了
因为看不到代码，只能给这些提示了

 

I

Iversonqiu03

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-04-25

• #7

p_CtlOBJ := TCustomAction(G_SendObjWnd);//正常 G_SendObjWnd 是从主程序传进来的SYSINT类型的值（TACTION的对象）
//p_CtlOBJ 是TCustomAction的类实例
Self.Caption := p_CtlOBJ.Caption;
//正常

p_CtlOBJ.Caption := 'abc';
//错误出现

请高手指教，小弟有急用，在线等，谢了，如分不够可以再加…… 拜托拜托……

另外，使用TButton的实例可以成功实现功能；

 

I

Iversonqiu03

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-04-25

• #8

？？？？？，高手们，帮帮忙吧！！！！
小弟真的有急用

 

金

金卡绣球jk8.com

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-04-25

• #9

p_CtlOBJ.Caption := pchar('abc');

 

I

Iversonqiu03

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-04-25

• #10

应该跟这个没任何关系吧，不行啊！！！！！！！！！！！

 

I

Iversonqiu03

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-04-26

• #11

没了吗？哪位高手帮帮忙吧，真的非常紧急啊～～～～～

 

P

phzongna

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-04-26

• #12

试一下这个会不会出错??
p_CtlOBJ := TCustomAction(G_SendObjWnd);
p_CtlOBJ.Caption := 'abc';

如果出错了,那就说明了,你上面的转型没有成功的

 

P

phzongna

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-04-26

• #13

如果G_SendObjWnd是地址,那么最好用这样转
PTCustomAction让 := ^TCustomAction;
p_CtlOBJ := PTCustomAction(G_SendObjWnd)^;

 

H

herozzl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-04-26

• #14

Delphi技术联盟群：23889386