1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
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.
|
