Individuelle Class Var für jede abgeleitete Klasse?

[alzaimar]

Hi,

habe hier ein kleines Problem:
Gegeben ist eine Basis-Listenklasse: TMyList. Diese Klasse bekommt eine Klasseneigenschaft bzw. Variable Namens 'ElementCount'.

Nun gibt es abgeleitete Klassen TMyListA und TMyListB. Jede dieser Klassen soll einen individuellen Wert für ElementCount speichern. Wie mach ich das?

Delphi-Quellcode:

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

...
  TMyListA.ElementCount := 10;
  TMyListB.ElementCount := 20;

  If TMyListA.ElementCount <> TMyListB.ElementCount Then
     ShowMessage('Super, es funktioniert')
  else
     ShowMessage('So ein Mist. Class Vars sind statisch');

Ich hätte gerne, das es super ist und funktioniert.

Ich kann das natürlich anders lösen, aber so wäre es mir am liebsten.