[Overview][Constants][Types][Classes][Procedures and functions] |
Return value of floating point property
Source position: line 0
function GetFloatProp( |
Instance: TObject; |
PropInfo: PPropInfo |
):Extended; |
Instance: TObject; |
const PropName: String |
):Extended; |
GetFloatPropreturns the value of the float property described by PropInfoor with name Propnamefor the object Instance. All float types are converted to extended.
No checking is done whether Instanceis non-nil, or whether PropInfodescribes a valid float property of Instance. Specifying an invalid property name in PropNamewill result in an EPropertyErrorexception.
|
Set value of a float 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 example4; { This program demonstrates the GetFloatProp function } {$mode objfpc} uses rttiobj,typinfo; Var O : TMyTestObject; PI : PPropInfo; begin O:=TMyTestObject.Create; Writeln('Real property : '); PI:=GetPropInfo(O,'RealField'); Writeln('Value : ',O.RealField); Writeln('Get (name) : ',GetFloatProp(O,'RealField')); Writeln('Get (propinfo) : ',GetFloatProp(O,PI)); SetFloatProp(O,'RealField',system.Pi); Writeln('Set (name,pi) : ',O.RealField); SetFloatProp(O,PI,exp(1)); Writeln('Set (propinfo,e) : ',O.RealField); Writeln('Extended property : '); PI:=GetPropInfo(O,'ExtendedField'); Writeln('Value : ',O.ExtendedField); Writeln('Get (name) : ',GetFloatProp(O,'ExtendedField')); Writeln('Get (propinfo) : ',GetFloatProp(O,PI)); SetFloatProp(O,'ExtendedField',system.Pi); Writeln('Set (name,pi) : ',O.ExtendedField); SetFloatProp(O,PI,exp(1)); Writeln('Set (propinfo,e) : ',O.ExtendedField); O.Free; end.