Individuelle Class Var für jede abgeleitete Klasse?

[himitsu]

Zitat von alzaimar:

Wie mach ich das?

Ich konnte grade nicht anders.
Tschuldschung

Delphi-Quellcode:

TMyList = Class
End;

TMyListA = Class (TMyList)
  Class Var ElementCount : Integer;
End;

TMyListB = Class (TMyList)
  Class Var ElementCount : Integer;
End;

Alernativ könntest du es eventuell über eine Class Property mit virtuellem Getter / Setter lösen.