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