Beispiel für Attribut an einem Methoden/Funktionsparameter

[mjustin]

Der Thread "boolean function: muss result := false gesetzt werden?" brachte mich zu einer älteren Fragestellung zurück:

Is it possible to use Attributes on Delphi method arguments?

Die Antwort war Ja (es war nur undokumentiert) und in der Antwort auf Stackoverflow war auch ein Beispiel. Dieses zeigte: RTTI findet das Attribut der Methode.

Nun meine Zusatzfrage: wie kann ich den konkreten Wert des Parameters, also zum Aufrufzeitpunkt, ermitteln?

Ich vermutete zuerst, dass zum Beispiel in Spring4D etwas in dieser Richtung enthalten ist (leider nein). Ich denke, es wäre ein guter Eintrag für die Codebibliothek. Da ich nun gelegentlich auch in einer neueren Delphi-Version unterwegs bin, würde ich gerne diese kleine Aufgabe lösen:

1. ein neues Attribut definieren: [NotNil]
2. Parameter, die dieses Attribut enthalten, werden zur Laufzeit geprüft.
3. Ist der übergebene Parameterwert nil, wird eine Exception ausgelöst.

Dazu suche ich nun Code, um per RTTI den konkreten Parameterwert auszulesen, also den Wert, der in dem attribuierten Parameter steht.

Beispiel für die Verwendung des Attributs:

Delphi-Quellcode:

procedure TMyClass.OnChangeMe([NotNil] ASender: TObject);
begin
  // hier ist ASender 'garantiert' nicht nil 
  // ... mache etwas
end;