Geerbter Getter für lokale Objekt-Konstante?

[Andreas13]

Ihr führt mir immer wieder den Unterschied zwischen einem Amateur (= mir) und den Profis (= IHR) vor Augen. Habe stets viel von Euch gelernt: Danke!
Gruß, Andreas

[Andreas13]

Sorry, ich bin schon wieder...
Erst soeben ist mir aufgefallen, daß bei der Zuweisung attr := FuncInfoAttribute.FindAttribute(ClassType); der String-Teil des Attributs „auf dem Weg“ verloren geht und in der Variablen attr immer ein Leerstring steht. Obwohl das Result der class function FuncInfoAttribute.FindAttribute(Source: TClass): FuncInfoAttribute; korrekterweise den String und den Integer enthält. In den Gettern kommt lediglich der Integer an, der String ist jedoch verschwunden. Kann das etwa mit dem auskommentierten TRttiContext.KeepContext; zusammenhängen?
Ich bin etwas ratlos...
Gruß, Andreas

[Uwe Raabe]

Zitat von Andreas13:

In den Gettern kommt lediglich der Integer an, der String ist jedoch verschwunden. Kann das etwa mit dem auskommentierten TRttiContext.KeepContext; zusammenhängen?

Ja, das war der eigentliche Grund für das KeepContext. Die Ursache konnte ich ad hoc auch nicht ermitteln.

Als Workaround kannst du eine globale Variable vom Typ TRTTIContext anlegen. Alternativ auch als class var in einem class helper, dann braucht man auch keinen lokalen TRTTIContext mehr in FindAttribute:

Delphi-Quellcode:

type
  TCustomAttributeHelper = class helper for TCustomAttribute
  public class var
    Context: TRttiContext;
  end;

[Andreas13]

Danke Uwe für Deine schnelle Hilfe!
Die Globale Variable

Delphi-Quellcode:

VAR 
Context: TRttiContext;

funktioniert einwandfrei!
Viele Grüße, Andreas