blob: 424b25cb1f6cfed9f2a0d9d9da8b58e7db7d7a08 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
program terecs8;
{$mode delphi}
// allow refence owner type for record and object static fields and class properties
type
TFoo = record
class var
FFoo: TFoo;
class property Foo: TFoo read FFoo write FFoo;
end;
TBar = record
class var
FBar: TBar;
class property Bar: TBar read FBar write FBar;
end;
begin
end.
|
