细谈Delphi中的private，public，protected

### Delphi中的访问控制修饰符：private，public，protected 在面向对象编程中，封装是保护数据完整性和安全性的核心原则之一。通过控制类成员（属性和方法）的可见性，我们可以有效地管理类的内部状态，并确保外部代码只能通过定义好的接口与类交互。Delphi作为一种流行的开发工具，提供了`private`、`public`和`protected`等关键字来实现这一目的。 #### private关键字 `private`部分中的成员只能被该类内部的方法所访问。这意味着`private`成员对于类的外部是不可见的，即使是从该类派生出来的子类也无法直接访问这些成员。这有助于提高代码的安全性和可维护性，因为敏感数据可以得到很好的保护。 在提供的示例中，`TDate`类的`private`部分包含三个整型变量：`Mouth`, `day`, 和 `Year`。这些成员只能被`TDate`类内部的方法如`SetValue`和`GetText`访问，而不能被任何其他外部代码或子类直接访问。例如，下面这段代码尝试直接访问`Mouth`属性： ```delphi ADay.Year:=2000; // 错误：无法直接访问private成员 ``` 正确的做法是通过`TDate`类提供的公共方法来设置日期值： ```delphi ADay.SetValue(1, 1, 2000); ``` 这种设计有助于确保数据的一致性和完整性，同时使得`TDate`类的使用者只能通过预定义的接口与类进行交互，从而避免了对内部状态的不当操作。 #### public关键字 与`private`相反，`public`部分中的成员可以被任何代码访问，包括从该类派生的子类以及完全不相关的其他类。因此，`public`成员是类对外暴露的接口，用于与外部世界进行通信。 在`TDate`类中，`public`部分包含两个方法：`SetValue`和`GetText`。这两个方法允许外部代码设置日期值并获取日期的文本表示形式。例如： ```delphi var MyDate: TDate; begin MyDate := TDate.Create; MyDate.SetValue(3, 15, 2023); ShowMessage(MyDate.GetText); // 显示 "3:15:2023" end; ``` 这种开放的访问方式使得`TDate`类可以很容易地被其他代码集成和使用。 #### protected关键字 `protected`关键字位于`private`和`public`之间。它允许子类访问基类的某些私有成员，但不允许外部代码访问。这样可以在继承的情况下提供一定程度的数据访问权限，同时也保留了数据封装的优点。 在示例中，`TNewDate`类是从`TDate`类派生而来。然而，由于`Mouth`, `day`, 和 `Year`成员被声明为`private`，因此`TNewDate`类无法直接访问这些成员。如果希望在`TNewDate`中能够使用这些成员，则应该将它们声明为`protected`。 ```delphi type TDate = class private Mouth, day, Year: Integer; protected procedure SetValue(m, d, y: Integer); function GetText: String; public // 其他公共方法 end; TNewDate = class(TDate) public function GetTextNew: String; end; ``` 这样修改后，`TNewDate`类就能够访问`TDate`类中的`protected`方法`SetValue`和`GetText`，但这些方法仍然不会对外部代码可见。 #### 总结 通过合理使用`private`、`public`和`protected`等访问控制修饰符，我们可以在Delphi中实现有效的封装机制。这不仅可以帮助保护数据的安全性，还可以增强代码的结构和可维护性。了解和掌握这些概念对于编写高质量、健壮的面向对象程序至关重要。