Delphi的类与继承

既然已经做出了com程序用delphi来开发的决定，那当然就要对delphi进行一些深入的了解。有人说delphi是一个用控件堆砌起来的工具，和vb没什么两样；也有人说dephi实际上是面向过程的，他的面向对象并不彻底。实际生活中持这两种观点的人不在少数，就拿我认识的一个非常好的程序员来说吧，他很早就开始用vb，到后来接触到delphi，并且用delphi也开发了不少程序，但吃惊的是这些程序全都是面向过程的。我并没有贬低这种做法的意思，我想说的是：好的delphi控件+好的编程规范+优秀的vcl 也能造就很多实用的程序。况且他也是位非常好的vb程序员，俗话说仅能使用vb还显得很初级，但用vb编写出非常稳定可靠的企业应用，那就非常优秀。但这样的人很少很少，为什么？因为企业级应用往往要求较高的可靠性和可扩展性，其中可靠性就是vb的弱点，很多时候为了实现一个稍微复杂的应用，vb就需要大量的第三方控件，大量的windows api调用（这些api在后期很难阅读与维护），大量的看似相互独立但无须申明就可以四处调用的模块，再加上一堆的全局变量，最终的局面是程序越大，程序员的脑袋就越大。但有人就说了，那vb不也有类吗？是啊，它是有，但一切面向对象的思想都在这个所谓的类上找不到影子：什么重载，虚函数，重写，继承...等等。而这些delphi都有。当然了，vb毕竟是一个易学易用的语言，从一开始，微软就没说过他是一个全面向对象的语言（这也包括最终的vb6.1)。再有就是可扩展性，用vb开发的程序一般可扩展性都比较低，这是不争的事实，我想就不用多说了，谁身在其中，谁自然最清楚。vb中好的程序员，多半是具有很高的编程技巧，能将vb的弱点降到最低的人，他们往往很早就接触vb，感情释然，积累也很丰富，放不下了。而我呢，又是个木瓜脑袋，是很难达到那些牛人的水平了，所以还是决定彻底放弃vb去选择一个优秀的开发工具，那就是delphi。
    从最初的c语言到vb，又从vb 到delphi，再从delphi到c#，最后又回过头来看delphi。虽说delphi的面向对象特性没有c#那样彻底，但delphi至少实现了80%-90%的oop特性。不废话了，先来看两个delphi下的类实现：

首先是一个表示人的基类，定义如下：

  unit Person_Cls;
 
   interface
 
   type
      Person=class       //基类
      private
        name:string;       //私有变量（姓名，性别，身高，体重）
        sex:string;
       year:integer;
       tall:integer;
       weight:integer;
       function get_name:string;           //声明返回和设置属性的函数
       procedure set_name(Value:string);   //以下同
       function get_sex:string;
       procedure set_sex(Value:string);
       function get_year:integer;
       procedure set_year(Value:integer);
       function get_tall:integer;
       procedure set_tall(Value:integer);
       function get_weight:integer;
       procedure set_weight(Value:integer);
 
     public
       constructor Create(Name:string;Sex:string;Year:integer;Tall:integer;Weight:integer);overload;
       constructor Create(Name:string;Sex:string);overload;    //重载构造函数，注意一定要使用关键字：overload
       property _name:string read get_name write set_name;     //为类定义属性，以便在外部可以访问
       property _sex:string read get_sex write set_sex;         //其中read表示可读，后面紧跟一个返回该属性值的函数名
       property _year:integer read get_year write set_year;     //write 表示可写，后面紧跟一个设置该属性值的函数名
       property _tall:integer read get_tall write set_tall;
       property _weight:integer read get_weight write set_weight;
 
  end;
 
  implementation
  //构造函数的实现
  constructor Person.Create(Name:string;Sex:string;Year:integer;Tall:integer;Weight:integer);
  begin
      Self.name:=Name ; Self.sex:=Sex ; Self.year:=Year ; Self.tall:=Tall; Self.weight:=Weight ;
 
  end;
  constructor Person.Create(Name:string;Sex:string);
  begin
     Self.name:=Name ; Self.sex:=Sex ; Self.year:= ; Self.tall:=; Self.weight:=;
  end;
 
  //类属性的内部实现  请与c#作比较：get{},set{}
  function Person.get_name:string;
  begin
      result:=Self.name ;
  end;
  procedure Person.set_name(Value:string);
  begin
      if (Value<>'') then
          name :=Value ;
  end;
  function Person.get_sex :string;
  begin
     result:=Self.sex;
  end;
  procedure Person.set_sex(Value:string);
  begin
     if((Value<>'female') and (Value<>'male')) then
        Self.sex :='male'
     else
        Self.sex :=Value;
 
  end;
  function Person.get_year :integer;
  begin
      result:=Self.year ;
  end;
  procedure Person.set_year(Value:integer);
  begin
      if(Value>) then
        Self.year :=
      else
        Self.year :=Value ;
  end;
  function Person.get_tall  :integer;
  begin
      result:=Self.tall  ;
  end;
  procedure Person.set_tall (Value:integer);
  begin
      if(Value>) then
        Self.tall:=
      else
        Self.tall:=Value ;
  end;
 
  function Person.get_weight   :integer;
  begin
      result:=Self.weight   ;
  end;
  procedure Person.set_weight(Value:integer);
  begin
      if(Value>) then
        Self.weight:=
     else
       Self.weight:=Value ;
 end;
 
 end.

其次一个学生类继承了上面的人类，定义如下：

  unit Student_Cls;
 
  interface
    uses Person_Cls;
    type
        Student=Class(Person)
        private
          stCode:string;  //学号
          department:string; //学院 (大学),学校名称(其他)
         classGrade:string; //班级
         function get_stCode:string;
         function get_department:string;
         function get_classGrade:string;
 
       public
         //构造函数定义
         constructor Create(s_name:string;s_sex:string;st_code:string;st_dt:string;st_clg:string);
         property _stCode:string read get_stCode;              //定义只读属性
         property _department:string read get_department;
         property _classGrade:string read get_classGrade;
 
   end;
 
 implementation
 constructor Student.Create(s_name:string;s_sex:string;st_code:string;st_dt:string;st_clg:string);
 begin
     inherited Create(s_name,s_sex);  //注意在此使用inherited关键字调用基类的构造函数，并向基类person传递
                                      //参数。在c#中可以使用base指定参数列表，在delphi中要使用inherited显示说明
     Self.stCode :=st_code; Self.department:=st_dt ; Self.classGrade:=st_clg ;
 
 end;
 //只读属性的内部实现
 function Student.get_stCode :string ;
 begin
     result:=Self.stCode ;
 end;
 function Student.get_department :string ;
 begin
     result:=Self.classGrade ;
 end;
 function Student.get_classGrade :string;
 begin
     result:=Self.classGrade ;
 end;
 end.

以上就是这两个简单的类定义，很好的说明了delphi中类和派生类的关系。
需要补充的一点就是，delphi中当你为类提供了自定义的构造函数后，系统还是会为你提供默认的构造函数。这一点需要注意。
至于类的使用，和一般面向对象的语言是一样的，用构造函数创建对象，在必要是卸构他就行了。