blob: 2286f04f27f1e29bd355dcbc90e2ec3c66fbb7f6 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
program tclass10c;
{$ifdef fpc}
{$mode delphi}
{$endif}
// check that "protected" or any other section resets the section type to accept regular fields
type
Tfoo=class
private
class var
f1: Integer;
protected
f2: Integer;
public
class property pf1: Integer read f1;
property pf2: Integer read f2;
end;
begin
end.
|
