属性(20分)

S

shengguo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-08

• #1

我定义了一个phoneNubers时：
property PhoneNumbers : TStrings read GetPhoneNumbers write
SetPhoneNumbers;
在我给phoneNumbers赋了一个值时，getphonenumbers
setphoneNumbers将按怎样的顺序执行？

 

H

Highpeak

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-08

• #2

赋值时只执行setphoneNumbers

 

Y

yostgxf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-08

• #3

赋值时只执行SetphoneNumbers，读phoneNumbers时才执行GetPhoneNumbers

 

W

WFSMoon

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-08

• #4

实际上你如果写的是：
PhoneNumbers := ????
那么会先执行GetPhoneNumber,再执行SetPhoneNumber;

 

Y

yostgxf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-08

• #5

这个到没注意，在组件构建实例的时候要执行GetPhoneNumber的。

 

S

shengguo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-08

• #6

如果要执行setPhoneNumbers的话，它的参数从哪里来呢？
函数如下：
function TContact.GetPhoneNumbers: TStrings;
begin
result := CreatePhones;
end;
procedure TContact.SetPhoneNumbers(const Value: TStrings);
begin
if( Value = FPhoneNumbers ) then exit;
PhoneNumbers.Assign( Value );
end

 

T

Tcustomzd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-08

• #7

应该是先执行get,再是set

 

W

WFSMoon

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-09

• #8

PhoneNumbers := A
那么SetPhoneNumbers的参数就是A