blob: 8869e4b0347b526cff8574054726b52839fcf312 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
{ %FAIL}
program tclass14b;
{$ifdef fpc}
{$mode delphi}{$H+}
{$endif}
type
TSomeClass = class
public
class var
FSomeField: Integer;
published
// class properties are not for sreaming therefore publishing them is not supported
class property SomeField: Integer read FSomeField write FSomeField;
end;
begin
end.
|
