Einzelnen Beitrag anzeigen

Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
43.310 Beiträge
 
Delphi 12 Athens
 
#3

Re: Individuelle Class Var für jede abgeleitete Klasse?

  Alt 31. Mär 2010, 13:27
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.
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
my Delphi wish list : BugReports/FeatureRequests
  Mit Zitat antworten Zitat