动态引用PowerBuilder结构值
|
在PowerBuilder 12 Classic中，我试图动态访问/设置结构的属性/元素。任何想法如何做到这一点？
我正在尝试构建一个开发人员实用程序，该实用程序将检查任意结构（在编译时未知）以找到其元素。我可以通过访问结构的
ClassDefinition
VariableList
st_person
first_name
last_name
st_person l_person
Any myStructure
myStructure = l_person
myStructure.setValue(\"first_name\") = \'John\'
myStructure.setValue(\"last_name\") = \'Smith\'
没有找到相关结果
已邀请:
2 个回复
靛新比比催
并在另一端收到此消息（这对于OpenWithParm和其他需要一个参数的事物非常有用）再进一步，我有of_Defined（字符串as_name）来测试是否存在，of_Get（字符串as_name，引用任何aa_value）返回整数，如果找到则返回成功，以启用诸如可选参数和对象之间较宽松的契约之类的东西。 还有更多，但这应该可以助您一臂之力。如果您不使用PFC并且不希望从中切出链接列表，则可能没有理由不能在一对平行的无边界数组上构建此列表：一个String用于键，一个用于数据。或者，将DataStore替换为String键列（DataStore使搜索键更快）和Number列替换为无界Any数组的索引。 祝好运， 特里济畦刨
事件构造函数返回long*函数of_enumprototypes（）返回字符串*integer li_EnumCount, li_Enum string ls_Prototypes TypeDefinition ltd_Enum EnumerationDefinition led_Enum ls_Prototypes = \"Add this list to the forward prototypes section of pfc_n_cst_conversion~r~n~r~n\" li_EnumCount = UpperBound (is_EnumTypes) FOR li_Enum = 1 TO li_EnumCount ls_Prototypes += \"public function string of_string (\" + is_EnumTypes[li_Enum] + \" aenum_Value)~r~n\" NEXT FOR li_Enum = 1 TO li_EnumCount ls_Prototypes += \"public function integer of_\" + is_EnumTypes[li_Enum] + \" (string as_Value, \" + is_EnumTypes[li_Enum] + \" ae_Value)~r~n\" NEXT ls_Prototypes += \"~r~n~r~n\" RETURN ls_Prototypesinteger li_EnumCount, li_Enum, li_ValueCount, li_Value string ls_Scripts, ls_Name TypeDefinition ltd_Enum EnumerationDefinition led_Enum li_EnumCount = UpperBound (is_EnumTypes) FOR li_Enum = 1 TO li_EnumCount ltd_Enum = FindTypeDefinition (is_EnumTypes[li_Enum]) led_Enum = ltd_Enum ls_Scripts += \"public function string of_string (\" + is_EnumTypes[li_Enum] + & \" aenum_Value);//////////////////////////////////////////////////////////////////////////////~r~n\" + & \"//~r~n\" + & \"//~tFunction:~t~tof_String~r~n\" + & \"//~r~n\" + & \"//~tAccess:~t~t~tpublic~r~n\" + & \"//~r~n\" + & \"//~tArguments:~r~n\" + & \"//~tae_icon~t~t~tThe \" + is_EnumTypes[li_Enum] +\" value to be converted to a string.~r~n\" + & \"//~r~n\" + & \"//~tReturns: ~t~tstring~r~n\" + & \"//~t~t~t~t~t~tA string representation of the \" + is_EnumTypes[li_Enum] + \" value.~r~n\" + & \"//~t~t~t~t~t~tIf aenum_Value is NULL, the function returns NULL.~r~n\" + & \"//~t~t~t~t~t~tIf aenum_Value is Invalid, the function returns \'!\'.~r~n\" + & \"//~r~n\" + & \"//~tDescription:~tConverts the \" + is_EnumTypes[li_Enum] + \" enumerated datatype to a~r~n\" + & \"//~t~t~t~t~t~treadable string representation.~r~n\" + & \"//~r~n\" + & \"//////////////////////////////////////////////////////////////////////////////~r~n\" + & \"string ls_Null~r~n~r~n// Check parameter~r~nIF IsNull (aenum_Value) THEN~r~n~tSetNull (ls_Null)~r~n~tRETURN ls_Null~r~nEND IF~r~n~r~n\" ls_Scripts += \"CHOOSE CASE aenum_Value~r~n\" li_ValueCount = UpperBound (led_Enum.Enumeration) FOR li_Value = 1 TO li_ValueCount ls_Name = led_Enum.Enumeration[li_Value].Name ls_Scripts += \"~r~n~tCASE \" + ls_Name + \"!;RETURN ~\"\" + ls_Name + \"~\"~r~n\" NEXT ls_Scripts += \"~r~nEND CHOOSE~r~n~r~n// Invalid parameter~r~nRETURN ~\"!~\"~r~nend function~r~n~r~n\" NEXT FOR li_Enum = 1 TO li_EnumCount ltd_Enum = FindTypeDefinition (is_EnumTypes[li_Enum]) led_Enum = ltd_Enum ls_Scripts += \"public function integer of_\" + is_EnumTypes[li_Enum] + & \" (string as_Value, \" + is_EnumTypes[li_Enum] + \" ae_Value);//////////////////////////////////////////////////////////////////////////////~r~n\" + & \"//~r~n\" + & \"//~tFunction: ~t~tof_\" + is_EnumTypes[li_Enum] + \"~r~n\" + & \"//~r~n\" + & \"//~tAccess: ~t~tpublic~r~n\" + & \"//~r~n\" + & \"//~tArguments:~r~n\" + & \"//~tas_Value~t~t~tThe string value to be converted to \" + is_EnumTypes[li_Enum] + \" datatype value.~r~n\" + & \"//~tae_Value~t~t~tA \" + is_EnumTypes[li_Enum] + \" variable passed by reference which will~r~n\" + & \"//~t~t~t~t~t~t~thold the \" + is_EnumTypes[li_Enum] + \" value that the string value was~r~n\" + & \"//~t~t~t~t~t~t~tconverted to.~r~n\" + & \"//~r~n\" + & \"//~tReturns: ~t~tinteger~r~n\" + & \"//~t~t~t~t~t~t1 if a successful conversion was made.~r~n\" + & \"//~t~t~t~t~t~tIf as_Value value is NULL, function returns -1~r~n\" + & \"//~t~t~t~t~t~tIf as_Value value is Invalid, function returns -1~r~n\" + & \"//~r~n\" + & \"//~tDescription: Converts a string value to a \" + is_EnumTypes[li_Enum] + \" data type value.~r~n\" + & \"//~r~n\" + & \"//////////////////////////////////////////////////////////////////////////////~r~n\" + & \"//~r~n\" + & \"//~tRevision History~r~n\" + & \"//~r~n\" + & \"//~tPFC OS Issues~r~n\" + & \"//~t6~tAuto-generated intial version~r~n\" + & \"//~t~tTerry Voth: http://www.techno-kitten.com~r~n\" + & \"//~r~n\" + & \"//////////////////////////////////////////////////////////////////////////////~r~n\" + & \"//~r~n\" + & \"//~tCopyright © 1996-1997 Sybase, Inc. and its subsidiaries. All rights reserved.~r~n\" + & \"//~tAny distribution of the PowerBuilder Foundation Classes (PFC)~r~n\" + & \"//~tsource code by other than Sybase, Inc. and its subsidiaries is prohibited.~r~n\" + & \"//~r~n\" + & \"//////////////////////////////////////////////////////////////////////////////~r~n\" + & \"as_Value = Lower (as_Value)~r~n~r~n// Check parameter~r~nIF IsNull (as_Value) THEN~r~n~tRETURN -1~r~nEND IF~r~n~r~n\" ls_Scripts += \"CHOOSE CASE as_Value~r~n\" li_ValueCount = UpperBound (led_Enum.Enumeration) FOR li_Value = 1 TO li_ValueCount ls_Name = led_Enum.Enumeration[li_Value].Name ls_Scripts += \"~r~n~tCASE ~\"\" + ls_Name + \"~\", ~\"\" + ls_Name + \"!~\"~r~n~t~tae_Value = \" + ls_Name + \"!~r~n~t~tRETURN 1~r~n\" NEXT ls_Scripts += \"~r~nEND CHOOSE~r~n~r~n// Invalid parameter~r~nRETURN -1~r~nend function~r~n~r~n\" NEXT RETURN ls_Scripts