目录

Rexx - 面向对象( Object Oriented)

根据环境章节安装ooRexx时,您还可以使用类和对象。 请注意,以下所有代码都需要在ooRexx解释器中运行。 普通的Rexx解释器将无法运行此面向对象的代码。

类和方法声明

使用以下语法声明定义类。

语法 (Syntax)

::class classname 

其中classname是给予classname的名称。

使用以下语法声明定义类中的方法。

语法 (Syntax)

::method methodname 

其中methodname是为方法指定的名称。

使用以下语法声明定义类中的属性。

语法 (Syntax)

::attribute propertyname 

其中propertyname是为该propertyname指定的名称。

例子 (Example)

以下是Rexx中的类的示例。

::class student 
::attribute StudentID 
::attribute StudentName 

关于上述计划,需要注意以下几点。

  • class的名字是学生。
  • 该类有2个属性,StudentID和StudentName。

Getter和Setter方法

Getter和Setter方法用于自动设置和获取属性的值。 在Rexx中,当您使用attribute关键字声明属性时,getter和setter方法已经到位。

例子 (Example)

::class student 
::attribute StudentID 
::attribute StudentName 

在上面的示例中,将有StudentId和StudentName的Getter和Setter方法。

以下程序显示了如何使用它们的示例。

/* Main program */ 
value = .student~new 
value~StudentID = 1 
value~StudentName = 'Joe' 
say value~StudentID 
say value~StudentName 
exit 0 
::class student 
::attribute StudentID 
::attribute StudentName 

上述程序的输出如下所示。

1 
Joe 

实例方法

可以通过~new operator从类创建对象。 可以通过以下方式调用该类中的方法。

Object~methodname 

其中methodname是需要从类中调用的方法。

例子 (Example)

以下示例显示如何从类创建对象以及调用的相应方法。

/* Main program */ 
value = .student~new 
value~StudentID = 1 
value~StudentName = 'Joe' 
value~Marks1 = 10 
value~Marks2 = 20 
value~Marks3 = 30 
total = value~Total(value~Marks1,value~Marks2,value~Marks3) 
say total 
exit 0 
::class student 
::attribute StudentID 
::attribute StudentName 
::attribute Marks1 
::attribute Marks2 
::attribute Marks3 
::method 'Total' 
use arg a,b,c 
return (ABS(a) + ABS(b) + ABS(c)) 

上述程序的输出如下所示。

60 

创建多个对象

人们还可以创建一个类的多个对象。 以下示例将说明如何实现此目的。

在这里,我们创建了3个对象(st,st1和st2)并相应地调用它们的实例成员和实例方法。

我们来看一个如何创建多个对象的示例。

例子 (Example)

/* Main program */ 
st = .student~new 
st~StudentID = 1 
st~StudentName = 'Joe' 
st~Marks1 = 10 
st~Marks2 = 20 
st~Marks3 = 30 
total = st~Total(st~Marks1,st~Marks2,st~Marks3) 
say total  
st1  =  .student~new 
st1~StudentID = 2 
st1~StudentName = 'John' 
st1~Marks1 = 10 
st1~Marks2 = 20 
st1~Marks3 = 40 
total = st1~Total(st1~Marks1,st1~Marks2,st1~Marks3) 
say total  
st2  =  .student~new 
st2~StudentID = 3 
st2~StudentName = 'Mark' 
st2~Marks1 = 10 
st2~Marks2 = 20 
st2~Marks3 = 30 
total = st2~Total(st2~Marks1,st2~Marks2,st2~Marks3) 
say total  
exit 0 
::class student 
::attribute StudentID 
::attribute StudentName 
::attribute Marks1 
::attribute Marks2 
::attribute Marks3 
::method 'Total' 
use arg a,b,c 
return (ABS(a) + ABS(b) + ABS(c)) 

上述程序的输出如下所示。

60 
70 
60 

继承 (Inheritance)

继承可以定义为一个类获取另一个类的属性(方法和字段)的过程。 通过使用继承,可以按层次顺序管理信息。

继承其他属性的subclass称为subclass (派生类,子类),其属性被继承的superclass称为superclass (基类,父类)。

让我们看一下Rexx中的继承示例。 在下面的示例中,我们将创建一个名为Person的类。 从那里我们使用subclass关键字将Student class创建sub-class of Personsub-class of Person

例子 (Example)

/* Main program */ 
st = .student~new 
st~StudentID = 1 
st~StudentName = 'Joe' 
st~Marks1 = 10 
st~Marks2 = 20 
st~Marks3 = 30 
say st~Total(st~Marks1,st~Marks2,st~Marks3)  
exit 0 
::class Person 
::class student subclass Person 
::attribute StudentID 
::attribute StudentName 
::attribute Marks1 
::attribute Marks2 
::attribute Marks3 
::method 'Total' 
use arg a,b,c 
return (ABS(a) + ABS(b) + ABS(c)) 

上述程序的输出如下所示。

60
↑回到顶部↑
WIKI教程 @2018