关于property.

关于property. 
在Delphi当中，往往将一个类的变量定义在private或者protected里面，这样外部是访问不到这些变量的。当有需要将某个或者某些变量暴露出来给外界访问，就在pulic区或者published区定义一个property。property后面跟着的read表示外界引用这个property的时候，从什么地方返回值，write表示外界给这个property赋值的时候，把这个值放到什么地方去，default对于写控件才有用，表示属性栏里面显示的该属性的缺省值。例如： 

 

Delphi代码

1. TMyClass   =   Class    
2. private    
3.     FField1:   integer;    
4.     FField2:   string;    
5.     FField3:   boolean;    
6.   
7.     function   GetField3:   boolean;    
8.     procedure   SetField3(AField:   boolean);    
9. public    
10.     property   Field1:   integer   read   FField1   write   FField1;    
11. published    
12.     property   Field2:   string   read   FField2;    
13.     property   Field3:   boolean   read   GetField3   write   SetField3;    
14. end;    
15.   
16. implements    
17.   
18. function   TMyClass.GetField3:   boolean;    
19. begin    
20.     //注意这里用FField3而不是Field3.    
21.     result   :=   FField3;    
22. end;    
23.   
24. procedure   TMyClass.SetField3(AField:   boolean);    
25. begin    
26.     //注意这里用FField3而不是用Field3，因为Field3是专门供外部使用的。    
27.     FField3   :=   AField;    
28. end;    

 

Delphi代码

1. //现在你可以这样调用了：    
2. var    
3.     myClass:   TMyClass;    
4.     i:   integer;    
5.     s:   string;    
6.     b:   boolean;    
7. begin    
8.     myClass   :=   TMyClass.Create;    
9.     try    
10.         myClass.Field1   :=   1;    
11.         i   :=   myClass.Field1;    
12.   
13.         s   :=   myClass.Field2;    
14.         myClass.Field2   :=   '这句出错，因为Field2是只读的，没有Write ';    
15.   
16.         myClass.Field3   :=   true;   //自动调用TMyClass.SetField3(True)    
17.         b   :=   myClass.Field3;         //自动调用TMyClass.GetField3返回结果给b    
18.     finally    
19.         myClass.Free;    
20.     end;    
21. end;