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.