Einzelnen Beitrag anzeigen

mjustin

Registriert seit: 14. Apr 2008
3.006 Beiträge
 
Delphi 2009 Professional
 
#1

Beispiel für Attribut an einem Methoden/Funktionsparameter

  Alt 2. Dez 2022, 11:17
Delphi-Version: 5
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;
Michael Justin
habarisoft.com
  Mit Zitat antworten Zitat