mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-08 03:28:40 +02:00
20 lines
341 B
ObjectPascal
20 lines
341 B
ObjectPascal
{ %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.
|