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
31
32
33
34
35
36
37
38
|
program tobject6;
{$APPTYPE console}
{$ifdef fpc}
{$mode delphi}{$H+}
{$endif}
type
TR = object
private
type
tsometype = integer;
class var
ffield1: tsometype;
var
ffield2: string;
const
somevalue = 1;
class procedure SetField1(const Value: tsometype); static;
public
class property field1: tsometype read ffield1 write SetField1;
end;
{ TR }
class procedure TR.SetField1(const Value: tsometype);
begin
ffield1 := Value;
end;
begin
TR.field1 := 10;
if TR.field1 <> 10 then
halt(1);
WriteLn(TR.somevalue);
if TR.somevalue <> 1 then
halt(2);
WriteLn('ok');
end.
|
