pb中实现使用属性(property)访问类的私有字段

大家在delphi或c#中创建类时可以使用一个叫属性(property)的东东,可以用它来访问类的私有成员(当然是用方法控制的),

如下:
public class Person
{
  private int _age;

  public int Age
  {
    get
    {
       return _age;
    }
    set
    {
      if(value > 0)
        _age = value;
    }
}
其好处我就不多言说了,相信各种资料说的比我解释的好,大家也很清楚.

在pb中创建对象的时候有没有这样的东东呢,我们提出疑问:属性(property)是否存在?

我找呀找,终于在朋友的帮助下找到了一个好东东,它就是indirect关键字,有了它就可以帮助我们在pb中实现属性(property

)这个东东了.

indirect到底怎么用呢,我们来具体操作一下吧;)

1. 创建一个类,姑且叫uo_Person吧.
2. 声明一个实例变量private integer _age  (实例变量声明在Declare --> Instance Variables处,不用我多说,这里是废

话了^_^)
3. 创建两个个对象函数:
   //=================================================
   // 设置_age
   //-------------------------------------------------
   // return: integer 固定约束,要求必须为integer
   //-------------------------------------------------
   // 说明:函数语法不是按PB的来的,我是要表达下意思而已
   //=================================================
   private integer of_SetAge(integer aiAge)
   {
     if aiAge > 0 then
       _age = aiAge
       return 1
     else
       return -1
     end if
   }
  
   //================================================
   // 读取_age
   //------------------------------------------------
   // return: integer 类型与私有实例字段一致
   //================================================
   private integer of_GetAge()
   {
      return _age
   }
4. 在实例变量声明处声明一个特殊字段(相当于属性),格式如下:
   public indirect integer Age{of_SetAge(*value),of_GetAge()}

到此,我们带属性访问的类就完成了.

写一段代码测试一下;)
uo_Person luo_Test

luo_Test = create uo_Person

luo_Test.Age = 25

MessageBox(@#Info@#,@#My age is@# + string(luo_Test.Age))

成功显示我的年龄,大功告成.

这样的类做起来有点麻烦,可是它有不少的好处,大家在实际应用中遇到了需要这样处理的问题要想到它,还要想到我,嘿嘿;)

原文转自：http://www.ltesting.net