Unit 'TypInfo'	Package
[Overview][Constants][Types][Classes][Procedures and functions][Index]	[#rtl]

GetInt64Prop

return value of an Int64 property.

Declaration

Source position: typinfo.pp line 1285

function GetInt64Prop(

Instance: TObject;

PropInfo: PPropInfo

):Int64; function GetInt64Prop(

Instance: TObject;

const PropName: string

):Int64;

Description

Remark:

Publishing of Int64 properties is not yet supported by Free Pascal. This function is provided for Delphi compatibility only at the moment.

GetInt64Prop returns the value of the property of type Int64 that is described by PropInfo or with name Propname for the object Instance.

Errors

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

SetInt64Prop		Set value of a Int64 property.
GetOrdProp		Get the value of an ordinal property.
GetStrProp		Return the value of a string property.
GetFloatProp		Return value of floating point 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 example15;

{ This program demonstrates the GetInt64Prop function }

{$mode objfpc}

uses rttiobj,typinfo;

Var
  O : TMyTestObject;
  PI : PPropInfo;

begin
  O:=TMyTestObject.Create;
  Writeln('Int64 property : ');
  PI:=GetPropInfo(O,'Int64Field');
  Writeln('Value            : ',O.Int64Field);
  Writeln('Get (name)       : ',GetInt64Prop(O,'Int64Field'));
  Writeln('Get (propinfo)   : ',GetInt64Prop(O,PI));
  SetInt64Prop(O,'Int64Field',12345);
  Writeln('Set (name,12345)    : ',O.Int64Field);
  SetInt64Prop(O,PI,54321);
  Writeln('Set (propinfo,54321) : ',O.Int64Field);
  O.Free;
end.

GetInt64Prop

Declaration

Description

Errors

See also

Example