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

# GetInt64Prop

return value of an Int64 property

## Declaration

Source position: typinfo.pp line 847

`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

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.