Individuelle Class Var für jede abgeleitete Klasse?

[Khabarakh]

Zitat von Phoenix:

Äh. Das was in Pascal das keyword 'class' ist, ist in anderen Sprachen das Keyword 'static'.

Nur dass es in Pascal so etwas wie Metaklassen gibt...

Delphi-Quellcode:

type
  TMyList = class
  private
    class var ElementCounts : TDictionary<TMyListClass, Integer>;
  public
    class property ElementCount : Integer read GetElementCount;
  End; 

...

class constructor TMyList.Create;
begin
  ElementCounts := TDictionary.Create;
end;

class function TMyList.GetElementCount : Integer;
begin
  if not ElementCounts.TryGetValue(Self, {out} Result) then
    Result := 0;
end;

In Ermangelung eines entsprechenden Delphis zum Testen gebe ich lieber keine Garantie, dass TDictionary da einen vernünftigen Hash rausholt . Die Hilfe schweigt sich selbstverständlich aus.