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

GetFloatProp

Return value of floating point property

Declaration

Source position: line 0

function GetFloatProp(

  Instance: TObject;

  PropInfo: PPropInfo

):Extended;

function GetFloatProp(

  Instance: TObject;

  const PropName: String

):Extended;

Description

GetFloatPropreturns the value of the float property described by PropInfoor with name Propnamefor the object Instance. All float types are converted to extended.

Errors

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.

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.