关于property.

最新推荐文章于 2023-01-01 15:18:18 发布

Hustudent20080101

最新推荐文章于 2023-01-01 15:18:18 发布

阅读量630

点赞数

分类专栏： delphi 文章标签： delphi integer string class

delphi 专栏收录该内容

82 篇文章

订阅专栏

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

Delphi代码

TMyClass   =   Class    

private    

    FField1:   integer;    

    FField2:   string;    

    FField3:   boolean;    

    function   GetField3:   boolean;    

    procedure   SetField3(AField:   boolean);    

public    

    property   Field1:   integer   read   FField1   write   FField1;    

published    

    property   Field2:   string   read   FField2;    

    property   Field3:   boolean   read   GetField3   write   SetField3;    

end;    

implements    

function   TMyClass.GetField3:   boolean;    

begin    

    //注意这里用FField3而不是Field3.    

    result   :=   FField3;    

end;    

procedure   TMyClass.SetField3(AField:   boolean);    

begin    

    //注意这里用FField3而不是用Field3，因为Field3是专门供外部使用的。    

    FField3   :=   AField;    

end;

Delphi代码

//现在你可以这样调用了：    

var    

    myClass:   TMyClass;    

    i:   integer;    

    s:   string;    

    b:   boolean;    

begin    

    myClass   :=   TMyClass.Create;    

    try    

        myClass.Field1   :=   1;    

        i   :=   myClass.Field1;    

        s   :=   myClass.Field2;    

        myClass.Field2   :=   '这句出错，因为Field2是只读的，没有Write ';    

        myClass.Field3   :=   true;   //自动调用TMyClass.SetField3(True)    

        b   :=   myClass.Field3;         //自动调用TMyClass.GetField3返回结果给b    

    finally    

        myClass.Free;    

    end;    

end;