我想每個相同的 Class (包括其 Sub-class) 建立出來的 Instance 都可以參考同一個 property, Delphi 中能否做到這功能? 若有的話, 是如何寫呢? 1) Declare 寫法; 2) 若這 property 是一個 Object, 在哪兒 Create/Free 呢? 3) 參考它的 Syntax 又如何寫? 謝謝。 -- 小卜子

------
--
小卜子

Global variable?

引言: Global variable?

可以說是吧, 但並不 Global 於整個 Application, 而只是同 Class 的 Instances 去 Share 使用而已, 一如 C 的 Static variable。 -- 小卜子

I don't think there is any equivalent in Delphi. Perhaps you could make use of unit global variable? e.g.

TMyClass = class
    {...}
    property MyVar: integer read GetVar write SetVar;
    {...}
end;    implementation    var
   AVar: integer;
{..}
procedure TMyClass.GetVar: integer;
begin
    Result := AVar;
end;    procedure TMyClass.SetVar(Value: integer);
begin
    AVar := Value;
end;

Of course the above simple example is NOT thread safe

Delphi目前尚未支援靜態的類別變數或屬性。

TMyClass = class {...} property MyVar: integer read GetVar write SetVar; {...} end; implementation {..} CONSTRUCTOR TMyClass.CREATE; {$J } CONST AVar=10; {$J-} BEGIN INHERITED; ...... END; procedure TMyClass.GetVar: integer; begin Result := AVar; end; procedure TMyClass.SetVar(Value: integer); begin AVar := Value; end; 加上編釋指引就可以有靜態的類別變數或屬性了。 如果愛情也有味覺 那麼 有沒有ㄧ種愛 微微泛酸 不太苦澀 有點甜密 嚐起來的滋味讓人想起幸福 Thomas Chiou

------
Thomas Chiou

我建立了一個 Unit, 然後把需要只建一份的變數放在這 Unit 上, 可說是個全域變數, 然後自律一點去存取就是了。 謝謝各位。 -- 小卜子

------
--
小卜子

使用class function 去存取只宣告於可見度在該unit 中的變數或物件 .. type TMyObj = class class function GetX:integer; end; . implementation var X:integer; class function TMyObj.GetX:integer; begin result := X; end; initialization X := 3; finaliization end; Object Pascal 中並無class 變數,最新的版本我不知有無? 不知是否合乎要求

shrobert, 合用啊, 謝謝你。 民. -- 小卜子

------
--
小卜子