[Overview][Constants][Types][Classes][Procedures and functions][Index] | Reference for unit 'TypInfo' (#rtl)

# GetFloatProp

Return value of floating point property

## Declaration

Source position: typinfo.pp line 827

`function GetFloatProp(`
`Instance: TObject;`
`PropInfo: PPropInfo`
`):Extended; function GetFloatProp(`
`Instance: TObject;`
`const PropName: string`
`):Extended;`

## Description

GetFloatProp returns the value of the float property described by PropInfo or with name Propname for the object Instance. All float types are converted to extended.

## Errors

No checking is done whether Instance is non-nil, or whether PropInfo describes a valid float property of Instance. Specifying an invalid property name in PropName will result in an EPropertyError exception.

## See also

SetFloatProp |  | Set value of a float property.
GetOrdProp |  | Get the value of an ordinal property
GetStrProp |  | Return the value of a string property.
GetInt64Prop |  | return value of an Int64 property
GetMethodProp |  | Return value of a method property
GetSetProp |  | Return the value of a set property.
GetObjectProp |  | Return value of an object-type property.
GetEnumProp |  | Return the value of an enumeration type property.

## Example

    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.