12 lines
192 B
ObjectPascal
12 lines
192 B
ObjectPascal
|
type
|
|||
|
|
TSome = auto class
|
|||
|
|
public
|
|||
|
|
auto property A: byte;
|
|||
|
|
auto property B: object;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
begin
|
|||
|
|
var node := new TSome(1, nil);
|
|||
|
|
assert(node.A = 1);
|
|||
|
|
assert(node.B = nil);
|
|||
|
|
end.
|