delphi 如何使用rtti访问类属性？

u3r8eeie 于 2024-01-07 发布在其他

关注(0)|答案(2)|浏览(100)

有没有可能用rtti来获取一个类的属性？下面的代码有什么问题？

...
type
  TTest = class
  private
    class function GetCP: string; static;
  public
    class property CP: string read GetCP;
  end;
class function TTest.GetCP: string;
begin
  Result := 'ABC';
end;
...
procedure TForm1.Button5Click(Sender: TObject);
var
  oTest: TTest;
  oType: TRttiType;
begin
  oTest := TTest.Create;
  try
    oType := TRttiContext.Create.GetType(oTest.ClassType);
    ShowMessage(Length(oType.GetProperties).ToString);  // oType.GetProperties = nil !!! 
  finally
    oTest.Free;
  end;
end;

字符串
最好的问候，布兰科

delphi

来源：https://stackoverflow.com/questions/47346632/how-to-access-a-class-property-with-rtti

2条答案

按热度按时间

wkyowqbh1#

无法通过RTTI访问类属性。

赞(0）回复(0）举报 2024-01-07

zd287kbt2#

我用这个函数获取类属性：

function GetClassInfo(obj: TObject): TDictionary<string, TTypeKind>;
var
  context: TRttiContext;
  rType: TRttiType;
  field: TRttiProperty;
begin
  context := TRttiContext.Create;
  try
    rType := context.GetType(obj.ClassType);
    Result := TDictionary<string, TTypeKind>.create;
    for field in rType.GetProperties do
      if field <> nil then
        Result.Add(Field.Name,Field.GetValue(obj).Kind);
  finally
    context.Free;
  end;
end;

字符串

展开查看全部

赞(0）回复(0）举报 2024-01-07

我来回答

delphi 如何使用rtti访问类属性？

2条答案

相关问题

热门标签

最新问答