blob: 38d720bd37887ba4ec2ce1e00112bf59c0ef714e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
program tclass12d;
{$APPTYPE console}
{$ifdef fpc}
{$mode delphi}{$H+}
{$endif}
type
TR = class
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.
|
