mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-12 19:09:35 +02:00
23 lines
601 B
ObjectPascal
23 lines
601 B
ObjectPascal
{%NORUN}
|
|
{$mode objfpc}
|
|
|
|
{
|
|
Test RTTI directive
|
|
}
|
|
program texrtti1;
|
|
|
|
{$RTTI EXPLICIT PROPERTIES([])}
|
|
{$RTTI EXPLICIT FIELDS([])}
|
|
{$RTTI EXPLICIT METHODS([])}
|
|
|
|
{$RTTI EXPLICIT PROPERTIES([vcPrivate,vcProtected,vcPublic,vcPublished])}
|
|
{$RTTI EXPLICIT FIELDS([vcPrivate,vcProtected,vcPublic,vcPublished])}
|
|
{$RTTI EXPLICIT METHODS([vcPrivate,vcProtected,vcPublic,vcPublished])}
|
|
|
|
{$RTTI EXPLICIT PROPERTIES([vcPrivate,vcProtected,vcPublic,vcPublished])
|
|
FIELDS([vcPrivate,vcProtected,vcPublic,vcPublished])
|
|
METHODS([vcPrivate,vcProtected,vcPublic,vcPublished])}
|
|
|
|
begin
|
|
end.
|