fpcsrc/tests/webtbs/tw5100a.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25

{ %norun }
{ %OPT=-Sen -vn }
{ %fail }

unit tw5100a; 

{$mode objfpc}{$H+}

interface

type

  { TB }

  TB = class
  private
    FT: string;
    property T: string read FT write FT;
  end;
  
implementation


end.