引言: 語出這一題, http://delphi.ktop.com.tw/topic.php?TOPIC_ID=38959 小弟查了一下, TDBGrid 與 TStringGrid 的祖先分別為, TDBGrid: TObject -> ... -> TCustomGrid -> TCustomDBGrid TStringGrid: TObject -> ... -> TCustomGrid -> TDrawGrid 可知二者的共同祖先是從 TCustomGrid 往上 而 TCustomGrid 在 protoected 區段有個 RowCount 的 property 在 TDBGrid 沒有開放 RowCount 這個屬性 在 TStringGrid 有, 所以可以使用 TStringGrid(DBGrid1).RowCount 的方式取得 DBGrid1 的 RowCount, 請問一下, 為什麼 TStringGrid(DBGrid1) 這句該怎麼解釋？ I can only say this is a very DIRTY trick... It makes no sense at all since TStringGrid and TDBGrid are not compatible... Well, I even consider it is a BUG....it works now does not guarantee it will work in future.... 另語出這一題: http://delphi.ktop.com.tw/topic.php?TOPIC_ID=38801 為什麼在如下的宣告後 type TAccessDBGrid = class(TDBGrid); 就可以使用 TCustomGrid 的 protected 區段內的 RowHeights property 而 TDBGrid 也是繼承自 TCustomGrid, 卻不能使用 RowHeights property？ Remember all classes can access other classes' property (even private)? So defining TAccessDBGrid in your unit makes classes/functions inside the same unit some kind of 'friend' in accessing the protected properties... --- 歡迎光臨 KTop 研究院 < face="Verdana, Arial, Helvetica">

引言:

引言: 語出這一題, http://delphi.ktop.com.tw/topic.php?TOPIC_ID=38959 小弟查了一下, TDBGrid 與 TStringGrid 的祖先分別為, TDBGrid: TObject -> ... -> TCustomGrid -> TCustomDBGrid TStringGrid: TObject -> ... -> TCustomGrid -> TDrawGrid 可知二者的共同祖先是從 TCustomGrid 往上 而 TCustomGrid 在 protoected 區段有個 RowCount 的 property 在 TDBGrid 沒有開放 RowCount 這個屬性 在 TStringGrid 有, 所以可以使用 TStringGrid(DBGrid1).RowCount 的方式取得 DBGrid1 的 RowCount, 請問一下, 為什麼 TStringGrid(DBGrid1) 這句該怎麼解釋？ I can only say this is a very DIRTY trick... It makes no sense at all since TStringGrid and TDBGrid are not compatible... Well, I even consider it is a BUG....it works now does not guarantee it will work in future....

引言: TStringGrid(DBGrid1).RowCount 這的確是作弊的方式(欺騙Compiler), 說它是Bug也行,我比較想稱它是漏洞,不鼓勵使用,偶而為之何仿?

引言:

引言: TStringGrid(DBGrid1).RowCount 這的確是作弊的方式(欺騙Compiler), 說它是Bug也行,我比較想稱它是漏洞,不鼓勵使用,偶而為之何仿?

這樣怎麼會是 BUG 跟漏洞呢... 這個只不過是物件導向中 多型 的應用而以 被你說的那麼難聽

  TEdit(Label1).Text := 'abc';    [compile: OK / work: OK]
  TLabel(Edit1).Caption := 'def'; [compile: OK / work: OK]
  TEdit(Label1).SetFocus;         [compile: OK / work: Access Violation]

引言: 就算是吧!不過卻是多型的誤用 至於為什麼要這樣用?答案是只為了便宜行事, 我還是強調,偶而為之可以,至少應該小心地用, 因為它不符合OO概念,看看下面

  TEdit(Label1).Text := 'abc';    [compile: OK / work: OK]
  TLabel(Edit1).Caption := 'def'; [compile: OK / work: OK]
  TEdit(Label1).SetFocus;         [compile: OK / work: Access Violation]

引言:

引言: TStringGrid(DBGrid1).RowCount 這的確是作弊的方式(欺騙Compiler), 說它是Bug也行,我比較想稱它是漏洞,不鼓勵使用,偶而為之何仿?

這樣怎麼會是 BUG 跟漏洞呢... 這個只不過是物件導向中 多型 的應用而以 被你說的那麼難聽 -- 聰明的人，喜歡猜心；雖然每次都猜對了，卻失去了自己的心 傻氣的人，喜歡給心；雖然每次都被笑了，卻得到了別人的心

引言: 先說我舉例TEdit(Label1).SetFocus的目的只是要突顯這種用法的危險性 就像StrToInt()一樣要由你的程式自行負責轉換的成敗Compiler可不會管你 再說,為什麼我同意William兄說的這可能是(或視同是)一種BUG的原因是, 就封裝的目的來說,DBGrid既然沒有開放RowCount的原因,也許作者認為不 需要也或許作者根本不希望你去存取這個欄位,而今透過這種作弊方式卻讓 作者的目的破功,當然是一個漏洞(不必太在意BUG這字眼)

引言: Woow... missed this hot topics < face="Verdana, Arial, Helvetica"> 的確蠻熱鬧的

引言:

引言: TStringGrid(DBGrid1).RowCount 這的確是作弊的方式(欺騙Compiler), 說它是Bug也行,我比較想稱它是漏洞,不鼓勵使用,偶而為之何仿?

這樣怎麼會是 BUG 跟漏洞呢... 這個只不過是物件導向中 多型 的應用而以 被你說的那麼難聽