var A,B: TSomeClass; 當這個A.free時後，這個static值還是保存再堆中,當下次在B.create 時,這個static值還是可以使用 ========================= 語言是工具，最重要是如何解決問題。

參考一下 Delphi 裡面有關於 Class method 的說明, 或許可以配合全域變數 來做到

引言: var A,B: TSomeClass; 當這個A.free時後，這個static值還是保存再堆中,當下次在B.create 時,這個static值還是可以使用 ========================= 語言是工具，最重要是如何解決問題。

我在help中似乎找不到Delphi有Static的用法, 我都是用public來做, 也就是在 A,B 的上一層UNIT定義一組PUBLIC變數, 由A,B來USES即可以達到STATIC的功能!

謝謝！ ========================= 語言是工具，最重要是如何解決問題。

我記得一般變數在前面加上 const 敘述就可以達成類似 C 裏的 static ，但不曉得對於物件是否也可以如此....

要使變數成為 c 語言中的 static 除了宣告成 const 外 還要打開編譯器的 { J} 才行 Thomas Chiou

------
Thomas Chiou

比較建議的做法是 假設你的 TSomeClass 物件是實做在 USomeClass.pass 單元內, 你在USomeClass 單元內的 implementation 使用var定義一個變數(假設為A) 供單元內部使用 這樣你就能把它當成一個Static變數來用了. 這樣的好處就是只有TSomeClass物件才能讀取的到,而外部的其他單元 就先引用了 USomeClass 單元也無法讀取或改變A變數的內容.