mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-10-31 07:31:49 +01:00
25 lines
689 B
ObjectPascal
25 lines
689 B
ObjectPascal
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. |