第6章节面向对象程序设计.pptVIP

第6章 面向对象程序设计;6.1 面向对象的基本概念;type TStudent=class(TPeople) IDinschool,grade:String; entrancemark:Single; procedure setvalue(i,g:string;m:Single); function ispassed:boolean; end; 定义了一个TStudent 类，其父类为TPeople，它包括IDinschool(学号)，grade(年级)，entrancemark(入学成绩)3个域和setvalue，ispassed 2个方法。;类的方法是在类中声明的函数和过程，如上例中的setvalue过程和ispassed函数，下面是两个方法的实现代码： procedure Tstudent.setvalue(i,g:string;m:Single); //为学生的各域设置值 begin IDinschool:=i; grade:=g; entrancemark:=m; end; function Tstudent.ispassed:boolean; //判断是否通过入学考试 begin if entrancemark=450 then ispassed:=true else ispassed:=false; end;;（2）类的特性;protected：具有protected属性的成员称为保护成员，可以被该类和该类的派生类所访问。 public：具有public属性的成员称为保护成员，可以被该类以外的类访问???如果两个类不在同一个单元文件中，则要在uses语句中包括被访问的类所在的单元名称。 published：具有published属性的成员称为发行类型成员，published 型成员和public 型成员具有相同的可见性，区别在于published 型成员在运行期间和设计期间均可以使用，而public 型成员只有在运行期间可以使用。通常发行类型的成员用在组件类的声明中，这样，就可以在对象编辑器中访问组件的发行类型的成员。 automated：具有automated属性的成员称为自动类型成员，它的访问权限基本与public相同。这种类型的成员一般用在从TAutoObject类派生的类中，目前只是为了和以前版本的Delphi兼容才保留了automated属性。 ;②类的继承性 继承性也是面向对象编程技术的一个共同特点，它是在已存在的类的基础上去建立新的类，使新建立的类成为原有类的子类(派生类)，原有类即为新类的父类(基类)。子类继承父类所有的域和方法，且继承具有传递性。例如： type Tpeople=class private name,sex:string; age:0..100; public function getname:string; end;;先定义了一个Tpeople 父类，其子类定义如下。 type TStudent=class(tpeople) private IDinschool,grade:String; entrancemark:Single; public procedure setvalue(i,g:string;m:Single); function ispassed:boolean; end; 有了以上定义之后，则 Var A:TStudent; … A:=TStudent.Create ; 则对象A 就具备了name，sex，age，Idinschool，grade和entrancemark 6 个域和3 个方法。;③类的多态性 除了覆盖以外，多态性也是实现类的继承多样化的编程技术。多态性也是面向对象技术的一个重要的特征，用户向不同的对象发出相同的指令，但不同对象的响应可能完全不同。通常在Delphi语言中，函数和过程都是静态的，而多态性的实现是在运行时才确定所调用方法的实际地址，具体调用哪个对象方法依赖于与变量有关的对象类型。;（3）类的属性 类的数据属性负责捕获状态。例如给出一个类Dog，正确表示了特定的狗的属性可能会是：颜色、种类、性别、重量。 类TDog可能会定义如下： TDog = class Color: TColor; Breed: String; Gender: String; Weight: Double; end;;为重量指定一个范围以避免出现体重超过10000磅或小于零的狗。在下面的代码中实现了所有的修改。 type TDogColor = (dcBrown, dcWhite, dcBlack, dcYellow); TDogGender = ( dgMale, dgBitch ); TDogBreed = ( dbLabrador, dbPoodle )