Hinweis: Der letzte Beitrag in diesem Thema ist älter als ein halbes Jahr.
Ich erlaube mir, trotzdem zu schreiben. Falls das nicht ok bist, einfach löschen
Ich sehe die Problematik, dass Instanzvariablen "angeblich" nicht erlaubt sind, nicht: Was hält mich denn davon ab, eine
TDictionary
-Klassenvariable zu deklarieren, die als Schlüssel eben die Instanz selbst hält?
Konkretes Beispiel: Ein TButtonHelper soll mir ermöglichen, dass jeder Button weiß, wann er das letzte mal geklickt worden ist:
Delphi-Quellcode:
TButtonHelper = class helper for TButton
private
class var lastPressedDictionary: TDictionary<TButton, TDateTime>;
[...]
property lastClicked: TDateTime
read GetlastClicked
write SetlastClicked;
end;
In meiner Anwendung kann ich nun problemlos sagen
Button99.lastClicked := Now(); Button123.lastClicked := Yesterday();
. Natürlich ist das etwas aufwändiger als die Möglichkeit, einfache Instanzvariablen in einer Helper-Klasse zu haben, aber das beste, was ich kenne.
In der Praxis habe ich bei
VCL-Komponenten natürlich noch eine Art "enable/disableHelperFunctionality()" da man das TDictionary ja auch wieder abbauen sollte...