mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 15:28:08 +02:00
31 lines
501 B
ObjectPascal
31 lines
501 B
ObjectPascal
program tclass12d;
|
|
{$APPTYPE console}
|
|
{$ifdef fpc}
|
|
{$mode delphi}{$H+}
|
|
{$endif}
|
|
|
|
type
|
|
TR = object
|
|
private
|
|
type
|
|
TSomeType = integer;
|
|
const
|
|
SomeValue: TSomeType = 1;
|
|
class function GetSomeProp: TSomeType; static;
|
|
public
|
|
class property SomeProp: TSomeType read GetSomeProp;
|
|
end;
|
|
|
|
class function TR.GetSomeProp: TSomeType;
|
|
begin
|
|
Result := SomeValue;
|
|
end;
|
|
|
|
begin
|
|
if TR.SomeValue <> 1 then
|
|
halt(1);
|
|
if TR.SomeProp <> 1 then
|
|
halt(1);
|
|
WriteLn('ok');
|
|
end.
|