程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 更多編程語言 >> Delphi >> DELPHI面向對象支持特點--保護級類成員的應用

DELPHI面向對象支持特點--保護級類成員的應用

編輯:Delphi

type
 TStringGridEx = class(TStringGrid);
  
procedure TForm1.Button1Click(Sender: TObject);
begin
 if TStringGridEx(StringGrid1).RowCount > 5 then
  TStringGridEx(StringGrid1).DeleteRow(5);
end;

  這是要在StringGrid中刪除一行的代碼。這個問題我搞了2個小時沒有搞定,然後就搜帖子,發現這位高人的代碼,簡直敬佩之情如黃河之水綿綿不絕,運行也通過。但是為啥TStringGridEx = class(TStringGrid);這個東西就可以有DeleteRow()方法呢?它明明也是繼承的TStringGrid,和TStringGrid是一樣的啊?我頭都大了!希望各位指點!

  以上就是樓主提問內容,問題的確奇怪,經過各大掌門的討論得出了一個DELPHI特有的保護級成員的應用特點,這應該也是Delphi獨有的一個面向對象支持特點,總結如下:

  1.TForm裡面可以訪問到TStringGridEx的protected成員,因為它們定義在同一個單元裡面

  2.TForm裡面不能訪問到TStringGrid的protected成員,因為他們不是定義在同一個單元裡面

  3.由於TStringGridEx = class(TStringGrid),所以在這裡訪問TStringGridEx的protected成員就相當於訪問TStringGrid的protected成員

  4.TStringGridEx只是一個中介,功能沒有擴展但是把TStringGrid的作用域引入到這個單元中來了,所以TForm可以訪問TStringGrid的protected成員了

  掌門一的看法是DELPHI的PROTECTED和PRIVATE成員對於同一UNIT裡面的各種類和對象都是可見的,而且PROTECTED成員可以在友員子類的UNIT中可見,於是TStringGridEx 哪怕只是繼承了TStringGrid沒作任何修改,也令TStringGrid中的PROTECTED成員在TStringGridEx的UNIT中可見(這其中還有一個原因是TStringGrid並不是定義在本UNIT,所以只能通過繼承使本UNIT成為友員,使TStringGrid的PROTECTED成員開放),問題解決了。我們也從中可以一窺Delphi的面向對象特點。

  掌門二的評論:在同一個單元定義的兩個類甚至可以互相訪問對方的private成員

  雖然方便了開發,但是很能迷惑初學者

  甚至感覺不夠嚴謹

  不過反正Delphi也風光不再了,湊乎用吧

  掌門三的評論:沒有完美的東西啊!只有適合的東西哦!

  掌門四的評論:protected起來的方法一般是隱藏的,所以直接生成該類的實例是不能引用該方法的,但是在Delphi中將位於同一個單元的類自動認為是友類,可以訪問其protected方法,所以在相應單元中寫一個子類的實現就可以看到protected起來的方法了

  個人覺得DELPHI對PROTECTED和PRIVATE在本單元可見的做法既方便了程序員又迷惑了程序員,使得很多以上的例子滿奇怪的,當然這也令程序員增加了許多創造發揮技巧的機會,以上例子就是一個巧妙應用技巧的經典范例,不過個人覺得這些機會還是少一點好。無論如何,可讀性才應該是程序員真正追求的代碼境界,這些奇怪的技巧性代碼,如果我使用其他語言一段時間以後再回來看它,可能怎樣都無法想到問題的解答。不過既然選擇的Delphi也就選擇了它的缺點,這有點像一對相愛的戀人,選擇了對方也就等於選擇了他的優點和缺點,世上本沒有完美的東西,我們只能適應不完美,追求完美。

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