fpcsrc/tests/webtbs/uw10492.pp


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

unit uw10492;

{$mode objfpc}

interface

const
  ISSTORED = false;

type
  TTest = class
  private
    Faaaa: String;
  published
    property AAAA: String read Faaaa write Faaaa stored ISSTORED;
  end;

implementation

begin
end.