class helper

[Der schöne Günther]

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...