mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-14 00:19:32 +02:00
26 lines
608 B
ObjectPascal
26 lines
608 B
ObjectPascal
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.
|