tests/webtbf/tw31107.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

{ %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.