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 example11;
{ This program demonstrates the IsStoredProp function }
{$mode objfpc}
uses rttiobj,typinfo;
Var
O : TMyTestObject;
PI : PPropInfo;
begin
O:=TMyTestObject.Create;
Writeln('Stored tests : ');
Write('IsStoredProp(O,StoredIntegerConstFalse) : ');
Writeln(IsStoredProp(O,'StoredIntegerConstFalse'));
Write('IsStoredProp(O,StoredIntegerConstTrue) : ');
Writeln(IsStoredProp(O,'StoredIntegerConstTrue'));
Write('IsStoredProp(O,StoredIntegerMethod) : ');
Writeln(IsStoredProp(O,'StoredIntegerMethod'));
Write('IsStoredProp(O,StoredIntegerVirtualMethod) : ');
Writeln(IsStoredProp(O,'StoredIntegerVirtualMethod'));
O.Free;
end.
|
