mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-11-04 07:59:34 +01:00
20 lines
237 B
ObjectPascal
20 lines
237 B
ObjectPascal
{ %FAIL }
|
|
|
|
program tw31107;
|
|
|
|
{$MODE DELPHI}
|
|
|
|
uses RTTI;
|
|
|
|
type
|
|
TFoo = class
|
|
private
|
|
FBar: string;
|
|
public
|
|
property Bar: string read FBar;
|
|
end;
|
|
|
|
begin
|
|
Writeln(Assigned(TRttiContext.GetType(TFoo).GetProperty('Bar')));
|
|
end.
|