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 := 18;
  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.