fpcsrc/tests/webtbf/uw3450.pp


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

unit uw3450;

{$mode objfpc}{$H+}

interface

type
  TA=class
  private
    FI: Integer;
  protected
    property I: Integer read FI write FI;
  end;

implementation

end.