GetInt64Prop

return value of an Int64 property

Declaration

Source position: typinfo.pp line 947

  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

See also

Name Description
GetEnumProp Return the value of an enumeration type property.
GetFloatProp Return value of floating point property
GetMethodProp Return value of a method property
GetObjectProp Return value of an object-type property.
GetOrdProp Get the value of an ordinal property
GetSetProp Return the value of a set property.
GetStrProp Return the value of a string property.
SetInt64Prop Set value of a Int64 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.