🚀 go-pugleaf

On Tue, 08 Jun 2010 01:03:55 +0200, Grzegorz Skoczylas wrote:
> <snip>
> Można też użyć "class var". To jest zmienna globalna, ale dostępna tylko 
> w obrębie klasy.
> 
> type
>    JakisObiekt = class(KlasaBazowa)
>    strict private
> <snip>
>      class var
>        { Zmienne globalne, wspólne dla wszystkich instancji klasy }
>        LbaInstancji:  Cardinal;
> <snip>
>    end;

Gwoli uzupełnienia: zwane popularnie polami/memberami 
statycznymi w innych językach programowania. 

W fpc za pomocą modifier'a 'static' + dyrektywa:

{$MODE OBJFPC}
{$STATIC ON}

type
   TSomeObject = class
       InstanceCount: integer; static;
   end;

begin
  TSomeObject.InstanceCount := 123;
end.

---

Przy czym nieprawdą jest jakoby:
"To jest zmienna globalna, ale dostępna tylko w obrębie klasy."

Tylko:
"Poziom dostępu jest ściśle zależny od sekcji w której sie ta 
zmienna statyczna znajduje[public, protected, private, strict X, etc],
ale referencnąć można ją tylko via TSomeObject.Something[lub instancję
TSomeObject]".

Więc czy "jest globalna" zależy od sekcji, ściśle to jest ona
statycznie linkowana więc ma uhm "globalny czas życia"[technicznie
jest statycznie linkowana]. ;-).

Chyba że coś nadinterpretowałem w poście Grzegorza, lub to jest
Delphi-Dialect specific. ;-).

-- 
Pozdrawiam,
Łukasz 'Maly' Ostrowski.      http://l3v.pl/