Delphi-面向对象

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

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

 1 {*------------------------------------------------------------------------------
 2   1、创建类
 3     类成员
 4       属性：成员变量、字段
 5       功能：方法、函数、过程、例程
 6   2、创建类对象
 7 
 8   3、对象的生命周期(对象从创建与消亡的过程)
 9       3.1、构造方法
10         3.1.1、在内存中申请一个内存空间，从而实现对象的创建
11         3.1.2、 初始化类成员的功能
12       3.2、对象销毁
13         3.2.1、free;
14         3.2.2、Destroy;
15         3.2.3、freeAndNil;
16         3.2.4、nil (空值null);
17       3.3、Self   //表示本类对象
18         3.3.1、解决命名冲突
19 
20   4、Delphi 中的单元的概念
21 -------------------------------------------------------------------------------}

 1 type
 2   TUser = class(TObject) //类  所有类继承了TObject
 3   FName : string; //字段
 4   procedure SetName(Name:string); //声明定义
 5   destructor Destroy();override;   //销毁  （销毁 关键字 destructor）
 6   constructor Aaa(Name:string);  //定义构建方法 (创建 关键字 constructor)
 7   end;
 8 //调用
 9 constructor TUser.Aaa(Name: string);  //构造方法
10 begin
11   //初始化
12   Self.FName := Name;
13 
14 end;
15 
16 destructor TUser.Destroy;   //销毁对象的方法
17 begin
18   //调用父类销毁对象的方法
19   Writeln('调用父类销毁对象的方法');
20   inherited;
21 end;
22 
23 procedure TUser.SetName(Name: string);
24 begin
25   Self.FName := Name;
26 end;
27 var
28   User:TUser;
29 begin
30   //通过内的构造方法，创建一个类的对象
31   User := TUser.Aaa('aa');   // 'aa' 传参
32 //  User := TUser.Create;  //向内存中申请一块内存地址空间  (对象生成)
33 //  User.FName := '小强';
34   Writeln(User.FName);
35 //  User.Free; //销毁对象(释放对象) :（调用TUser.Destroy方法）模板方法设计模式
36   FreeAndNil(User);//销毁对象
37   Readln;
38 end.

猜你喜欢