在运行时测试类上是否存在属性

Question

像这样:

##class(MyApp.MyClass).%HasProperty("SomeProperty").  

我想做这样的事情:

set classDefinition = ##class(%Dictionary.CompiledClass).%OpenId(%class.Name)

，然后循环遍历属性，但是，我需要能够使用任何类，而不仅仅是%class

Answer 1

对于简单的OO方法，可以使用以下API:

Set tPropExists = ##class(%Dictionary.CompiledProperty).IDKEYExists("SomeClass","SomeProperty")

这应该比加载类定义数据并遍历其属性(从而也加载这些属性的数据)要少得多的运行时成本。

如果你仍然想为你的应用程序类创建一个%HasProperty()助手方法，你可以使用以下基本方法(假设你是在Cache 2010.2或更高版本上-我相信$this特殊变量和$classname()函数是在2010.2中添加的，但那可能是在2010.1中。):

ClassMethod %HasProperty(pPropName As %String = "") As %Boolean
{
  Set tHasProp = 0
  If (pPropName '= "") {
    Set tHasProp = ##class(%Dictionary.CompiledProperty).IDKEYExists($classname($this),pPropName)
  }
  Quit tHasProp
}

Answer 2

如果运行时速度对您很重要，您可能还需要使用生成器方法(缓存对象中非常好的特性之一)。

例如:

Method PropertyExists(Name) As %Boolean [ CodeMode = generator, ProcedureBlock = 1, ServerOnly = 1 ]
{
    Set %code=0
    S ClassDef=##class(%Dictionary.CompiledClass).%OpenId(%class)
    i '$IsObject(ClassDef)  $$$GENERATE(" Q 0")  Q $$$OK  
    I '$IsObject(ClassDef.Properties) $$$GENERATE(" Q 0")  Q $$$OK  
    S Key=""  F  S Key=ClassDef.Properties.Next(Key)  Q:Key=""  D
    . S CompiledProperty=ClassDef.Properties.GetAt(Key)
    . $$$GENERATE(" I Name="""_CompiledProperty.Name_""" Q 1" )
    $$$GENERATE(" Q 0")
    q $$$OK
}