[Overview][Constants][Types][Classes][Procedures and functions] |
Return the value of an enumeration type property.
Source position: line 0
function GetEnumProp( |
Instance: TObject; |
const PropName: String |
):String; |
Instance: TObject; |
const PropInfo: PPropInfo |
):String; |
GetEnumPropreturns the value of an property of an enumerated type and returns the name of the enumerated value for the objetc Instance. The property whose value must be returned can be specified by its property info in PropInfoor by its name in PropName
No check is done to determine whether PropInforeally points to the property information for an enumerated type. Specifying an invalid property name in PropNamewill result in an EPropertyErrorexception.
|
Set value of an enumerated-type property |
|
|
Get the value of an ordinal property |
|
|
Return the value of a string property. |
|
|
return value of an Int64 property |
|
|
Return value of a method property |
|
|
Return the value of a set property. |
|
|
Return value of an object-type property. |
|
|
Return the value of an enumeration type property. |
program example2; { This program demonstrates the GetEnumProp function } {$mode objfpc} uses rttiobj,typinfo; Var O : TMyTestObject; PI : PPropInfo; TI : PTypeInfo; begin O:=TMyTestObject.Create; PI:=GetPropInfo(O,'MyEnumField'); TI:=PI^.PropType; Writeln('Enum property : '); Writeln('Value : ',GetEnumName(TI,Ord(O.MyEnumField))); Writeln('Get (name) : ',GetEnumProp(O,'MyEnumField')); Writeln('Get (propinfo) : ',GetEnumProp(O,PI)); SetEnumProp(O,'MyEnumField','meFirst'); Writeln('Set (name,meFirst) : ',GetEnumName(TI,Ord(O.MyEnumField))); SetEnumProp(O,PI,'meSecond'); Writeln('Set (propinfo,meSecond) : ',GetEnumName(TI,Ord(O.MyEnumField))); O.Free; end.