Anonyme Methoden in Attributen

[Neutral General]

Hallo,

Das scheint leider nicht zu gehen:

Delphi-Quellcode:

TAnonym = reference to procedure;

TMyCustomAttribute = class(TCustomAttribute)
  constructor Create(Anonym: TAnonym); // compiliert
end;

// Funktioniert nicht: "Konstantenausdruck erwartet"
[TMyCustomAttribute(
  procedure
  begin
    ShowMessage('Test');
  end)
]
TTestclass = class

end;

Das finde ich schade und ich wäre froh wenn Embarcadero sowas implementieren könnte.
Denn ich finde dass der Ausdruck konstant genug ist.

Ansonsten: Kennt jemand eine Alternative?

[himitsu]

Bei anonymen Methoden wird zur "Laufzeit" ein Interface erstellt und du kannst dort nur Konstanten verwenden.

[Stevie]

Die Alternative heißt: neue Attribute Klasse, und dort den Code implementieren.

[sahimba]

Spannend. Hab gar nicht geahnt, dass so etwas geht. Wann genau wird der Code dann ausgeführt? Einmalig, zur Initialisierung oder immer, wenn auf das Attribut zugegriffen wird? Spontan fällt mir kein Use Case ein, aber das heisst ja nix

[Stevie]

Zitat von sahimba:

Spannend. Hab gar nicht geahnt, dass so etwas geht.

Naja, es geht ja ebend nicht

Zitat von sahimba:

Wann genau wird der Code dann ausgeführt? Einmalig, zur Initialisierung oder immer, wenn auf das Attribut zugegriffen wird?

Der Konstruktor eines Attributes wird beim Auslesen ausgeführt. Sofern man dafür sorgt, dass die Rtti Objekte am Leben bleiben (indem man sich den TRttiContext behält), ist das einmalig.

In dieser Hinsicht ist Delphi übrigens mal ausnahmsweise C# nicht hinterher, die können auch nicht mehr.

[sahimba]

Zitat von Stevie:

Naja, es geht ja ebend nicht

Aber fast. Quasi. Quasi fast

[Neutral General]

Zitat von Stevie:

Zitat von sahimba:

Spannend. Hab gar nicht geahnt, dass so etwas geht.

Naja, es geht ja ebend nicht

Zitat von sahimba:

Wann genau wird der Code dann ausgeführt? Einmalig, zur Initialisierung oder immer, wenn auf das Attribut zugegriffen wird?

Der Konstruktor eines Attributes wird beim Auslesen ausgeführt. Sofern man dafür sorgt, dass die Rtti Objekte am Leben bleiben (indem man sich den TRttiContext behält), ist das einmalig.

In dieser Hinsicht ist Delphi übrigens mal ausnahmsweise C# nicht hinterher, die können auch nicht mehr.

Der Code würde gar nicht automatisch ausgeführt werden. (Es sei denn der constructor ruft ihn sofort auf) In meinem Fall hat eine Klasse an anderer Stelle die Attribute ausgelesen und sollte dann die dem Attribut mitgegebene anonyme Funktion ausführen.Habe jetzt eine andere Möglichkeit gefunden für mein Problem - auch wenn es nicht gerade das Schönste ist was ich je getan habe.

[himitsu]

Zitat von sahimba:

Spannend. Hab gar nicht geahnt, dass so etwas geht. Wann genau wird der Code dann ausgeführt? Einmalig, zur Initialisierung oder immer, wenn auf das Attribut zugegriffen wird? Spontan fällt mir kein Use Case ein, aber das heisst ja nix

Die werden nicht beim Start ausgeführt, sondern nur wenn "jemand" sie ausliest.
http://docwiki.embarcadero.com/RADSt...it_extrahieren
http://docwiki.embarcadero.com/RADSt...te_deklarieren

Es gibt von Delphi ein paar Attribute, welche von Compiler oder VCL ausgewertet werden, wie z.B.

Delphi-Quellcode:

property int: Integer default 123;

[Default('abc')]
property str: string;

var
  [Weak] i: IInterface;

WeakAttribute, UnsafeAttribute, RefAttribute, DefaultAttribute, NoDefaultAttribute, StoredAttribute, ObservableMemberAttribute, ...