Question

program Test;

{$APPTYPE CONSOLE}

uses
  System.SysUtils,
  System.Rtti;

function GetPropertyValue(const AObject: TObject; APropertyName: string): TValue;
var
  oType: TRttiType;
  oProp: TRttiProperty;
begin
  oType := TRttiContext.Create.GetType(AObject.ClassType);
  if oType <> nil then
  begin
    oProp := oType.GetProperty(APropertyName);
    if oProp <> nil then
      Exit(oProp.GetValue(AObject));
  end;
  Result := TValue.Empty;
end;

function GetAttributePropertyValue(const AClass: TClass; AAttribute: TClass;
  AAttributePropertyName: string): TValue;
var
  oAttr: TCustomAttribute;
begin
  for oAttr in TRttiContext.Create.GetType(AClass).GetAttributes do
    if oAttr.InheritsFrom(AAttribute) then
      Exit(GetPropertyValue(oAttr, AAttributePropertyName));
  Result := nil;
end;

function GetClassAttribute(const AClass: TClass; AAttribute: TClass): TCustomAttribute;
begin
  for Result in TRttiContext.Create.GetType(AClass).GetAttributes do
    if Result.InheritsFrom(AAttribute) then
      Exit;
  Result := nil;
end;

type
  DescriptionAttribute = class(TCustomAttribute)
  private
    FDescription: string;
  public
    constructor Create(const ADescription: string);
    property Description: string read FDescription;
  end;

constructor DescriptionAttribute.Create(const ADescription: string);
begin
  FDescription := ADescription;
end;

type
  [Description('MyClass description')]
  TMyClass = class(TObject);

var
  oAttr: TCustomAttribute;
begin
  { ok, output is 'MyClass description' }
  WriteLn(GetAttributePropertyValue(TMyClass, DescriptionAttribute, 'Description').AsString);
  { not ok, output is '' }
  oAttr := GetClassAttribute(TMyClass, DescriptionAttribute);
  WriteLn(DescriptionAttribute(oAttr).Description);
  // WriteLn(oAttr.ClassName); // = 'DescriptionAttribute'
  ReadLn;
end.

我需要rtti属性。我希望获得函数GetClassAttribute()的属性，但结果不是预期的。

函数GetAttributePropertyValue()的结果是正确的（第一个WriteLn），但函数GetClassAttribute()的结果是具有空描述值的DescriptionAttribute。为什么呢？

将属性作为函数结果获取的正确方法是什么？

TIA和最好的问候茨尔

Answer 1

问题是如果TRttiContext超出范围，则在查询信息（包括属性）期间创建的所有与RTTI相关的对象都将被销毁。

当您在属性类上放置析构函数时，可以验证这一点。

最新版本在KeepContext上引入DropContext和TRttiContext方法，您可以使用或只是将某个全局变量放在某处，并通过调用Create或触发内部创建来触发内部创建一些东西。我通常使用RTTI将TRttiContext变量作为类变量放入类中。

KeepContext和DropContext可以在代码中使用，在这些代码中，您可能没有一个全局TRttiContext实例来确保其生命周期，因为您正在使用具有自己的其他类，方法和例程TRttiContext参考 - 例如，在System.Classes BeginGlobalLoading KeepContext EndGlobalLoading DropContext print ('\033[92m' + "test1") print ('\033[91m' + "test2")期间[92mtest1 [91mtest2中查看其用途。

作为函数结果的属性是否具有空属性值？

1 个答案: