Delphi-面向对象

1、面向过程
2、基于对象
3、面向对象

　　抽象：将同类事物向上抽取的过程
　　派生（继承）： 编程中的继承指的是类和类之间的关系，称为派生。
　　封装：将不必要的暴漏的细节隐藏起来。
　　多态：一类事物以多种形态存在

 {*------------------------------------------------------------------------------
   1、创建类
     类成员
       属性：成员变量、字段
       功能：方法、函数、过程、例程
   2、创建类对象

   3、对象的生命周期(对象从创建与消亡的过程)
       3.1、构造方法
         3.1.1、在内存中申请一个内存空间，从而实现对象的创建
         3.1.2、 初始化类成员的功能
       3.2、对象销毁
         3.2.1、free;
         3.2.2、Destroy;
         3.2.3、freeAndNil;
         3.2.4、nil (空值null);
       3.3、Self   //表示本类对象
         3.3.1、解决命名冲突

   4、Delphi 中的单元的概念
 -------------------------------------------------------------------------------}

 type
   TUser = class(TObject) //类  所有类继承了TObject
   FName : string; //字段
   procedure SetName(Name:string); //声明定义
   destructor Destroy();override;   //销毁  （销毁 关键字 destructor）
   constructor Aaa(Name:string);  //定义构建方法 (创建 关键字 constructor)
   end;
 //调用
 constructor TUser.Aaa(Name: string);  //构造方法
 begin
   //初始化
   Self.FName := Name;

 end;

 destructor TUser.Destroy;   //销毁对象的方法
 begin
   //调用父类销毁对象的方法
   Writeln('调用父类销毁对象的方法');
   inherited;
 end;

 procedure TUser.SetName(Name: string);
 begin
   Self.FName := Name;
 end;
 var
   User:TUser;
 begin
   //通过内的构造方法，创建一个类的对象
   User := TUser.Aaa('aa');   // 'aa' 传参
 //  User := TUser.Create;  //向内存中申请一块内存地址空间  (对象生成)
 //  User.FName := '小强';
   Writeln(User.FName);
 //  User.Free; //销毁对象(释放对象) :（调用TUser.Destroy方法）模板方法设计模式
   FreeAndNil(User);//销毁对象
   Readln;
 end.

4、单元属性

Project.exe

 {*------------------------------------------------------------------------------
   1、单元
     1.1、方便代码维护（单元的优点）
     1.2、对代码进行分门别类 （单元的优点）
     1.3、引用（UTool in 'UTool.pas';）
   2、属性（类）
     2.1、访问可见性(访问权限修饰符)(对字段、域权限限制)
       1、private （私有的）
       2、public （公有的）
       3、protected (受保护的)
         如果某个字段或者方法被该关键字修饰，该字段在其子类中访问
       4、Publicshed
 -------------------------------------------------------------------------------}

 uses
   System.SysUtils,
   UTool in 'UTool.pas',
   UTool2 in 'UTool2.pas'; //窗体初始化时引用

 var
  Person : TPerson;

 begin
 //  Writeln(UName);
 //  Writeln(UAge);  //无法调用
   Person := TPerson.Create;
   Writeln(Person.Name);
   Writeln('------------------------');
   Writeln(Person.Age);
   Person.AgeChange := ;
   Writeln(Person.AgeChange);
 //  Person.Age := 18;
 //  Writeln(Person.Age);
   Readln;

 end.

 UTool.pas

 interface

 uses
   UTool2;  //引用其他单元

  //声明区域
 var
   UName : string;
 type
   TPerson = class
   private
     FName:string;   //字段、域(一般情况下，不允许外界直接调用)
     FAge : Integer;
     function GetAge() : Integer; //声明一个函数（用于获取字段的值）
     procedure SetAge(FAge : Integer); //修改，只能定义过程（用于修改字段的值）

   public  //属性内容
     property Name : string read FName write FName;    //property关键字
     property Age : Integer read GetAge; //该属性为只读属性
     property AgeChange : Integer read GetAge write SetAge; //该属性为可写属性

   end;

 implementation
 //实现区域
 //var //在实现区域内部声明的只能在本单元内使用
 //  UAge : Integer;  //只能在本单元使用

 { TPerson }

 function TPerson.GetAge: Integer;
 begin
   Result := Self.FAge;
 end;

 procedure TPerson.SetAge(FAge: Integer);
 begin
   Self.FAge := FAge;
 end;

 initialization
 //初始化区域
 UName := '小强';

 //UAge :=  18;
 finalization
 //销毁区域
 //UName := '';
 //UAge := 0;
 end.