mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-15 23:59:30 +02:00
23 lines
632 B
ObjectPascal
23 lines
632 B
ObjectPascal
program example11;
|
|
|
|
{$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. |