getTrprop在对象上找不到属性

Question

我试图获取具有其名称的图形的属性：

    var key           := GetStrProp(table.Item, keyName);
    var value         := GetStrProp(table.Item, valueName);

上面的代码返回错误，说它无法在对象上找到属性'代码'（Keyname包含“代码”）。 ValueName也是如此。

我使用以下代码测试了对象的内容，它确实包含属性代码，并且该值还包含我期望的。

    var item          := table.Item as TdciPROJECTRESULTAATTYPE;
    var code          := item.CODE;
    var value         := item.DESCRIPTION;

前2行有什么问题？

Answer 1

您的代码没有错，但是TDCiprojectResultaAttype类可能有些“错误”。

gettrprop是来自typinfo单元的Delphi的“旧式” RTTI方法之一。旧的RTTI仅生成类型信息，以使用{M+}编译器指令（及其后代）编译的对象的已发布属性。 tdciprojectResultaAttype很可能没有那些旧式的RTTI。

如果您拥有现代版本的Delphi，它提供了更多的“现代” RTTI函数（在单位rtti中），可以访问有关对象的更多信息（尽管我目前不记得确切的纳入规则）。这些 May 允许您通过RTTI访问您的属性。

Answer 2

感谢肯指向我指向正确的方向。我创建了一个小功能，可以很好地完成我的需求。这是代码。

class function TComboboxHelper<TTable>.GetPropertyValue(obj: TObject; name: string) : TValue;
begin
  Result              := nil;

  var rttiContext     := TRttiContext.Create;

  try
    var classType     := obj.ClassType;
    var itemType      := rttiContext.GetType(classType);
    var propType      := itemType.GetProperty(name);

    Result            := propType.GetValue(obj);

  finally
    rttiContext.Free;

  end;

end;

您可以这样使用：

    var key           := GetPropertyValue(table.Item, keyName).AsString;
    var value         := GetPropertyValue(table.Item, valueName).AsString;