理解 Delphi 的类(六) - 认识类的封装

最新推荐文章于 2022-10-13 07:21:21 发布

转载最新推荐文章于 2022-10-13 07:21:21 发布 · 115 阅读

本文详细介绍了在面向对象编程中如何利用封装来隐藏实现细节并确保数据安全。通过几个具体类的定义示例，展示了从无封装到完全封装的过程，并解释了使用属性来控制外部访问的方法。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

//这个类中的两个字段没有封装
  TMyClass1 = class
    FName: string;
    FAge:  Integer;
  end;

  //这个类中的两个字段封装了, 外部不能读写
  TMyClass2 = class
    private
      FName: string;
      FAge:  Integer;
    //public
  end;

  //那怎么读写? 用属性啊
  TMyClass3 = class
  private
    FName: String;
    FAge: Integer;
    procedure SetAge(const Value: Integer);
    procedure SetName(const Value: String);
  published
    property Name: String  read FName write SetName;
    property Age:  Integer read FAge  write SetAge;
  end;
  {
    现在 TMyClass3 中的两个字段: FName、FAge 和两个方法: SetAge、SetName
    都被封装在私有区(private)内, 不允许外部读写, 只能是内部使用.

    不过, private 的封装在本单元内是无效的!
    现在好了, 有了 strict 标识符.
  }

  //这个封装好了, 在 private 前加了 strict ; 现在除了自己谁也访问不了私有区.
  TMyClass4 = class
  strict private
    FName: String;
    FAge: Integer;
    procedure SetAge(const Value: Integer);
    procedure SetName(const Value: String);
  published
    property Name: String  read FName write SetName;
    property Age:  Integer read FAge  write SetAge;
  end;

  {封装的目的就是隐藏实现细节、保证数据安全}