大家帮忙看看这一行程序(0分)

C

cjtmh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-04-16

• #1

var
obj:TObject;
button:TButton;
begin
if obj is TButton then button:=obj as TButton;
end;
我想知道把这个obj赋值给button是什么意思？

 

I

iforward

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-04-17

• #2

button指向obj所指向的对象
也就是说button和obj是同一个对象

 

木

木桩

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-06

• #3

if obj is TButton then //如果obj 的类型是 TButton
button:=obj as TButton
// 将obj强制转化为 TButton并赋值给button

 

大

大器晚成

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-06

• #4

这段代码的button对象实在是多余!
这样写什么都可以做了:
if obj is TButton then
with TButton(obj) do begin //(或者写成with obj as TButton do begin)
……
end;

 

H

hityou

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-06

• #5

类似于(sender as Tbutton),把一个对象更加具体化并赋与某一对象。