程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 更多編程語言 >> Delphi >> 理解 Delphi 的類(六) - 認識類的封裝

理解 Delphi 的類(六) - 認識類的封裝

編輯:Delphi

 //這個類中的兩個字段沒有封裝

 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;

  {封裝的目的就是隱藏實現細節、保證數據安全}

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved