8 lines
178 B
ObjectPascal
8 lines
178 B
ObjectPascal
Type
|
||
ИмяКласса_1 = class
|
||
ИмяКласса_2 := new class(d:=1);
|
||
end;
|
||
Begin
|
||
var s := new ИмяКласса_1;
|
||
Assert(s.ИмяКласса_2.d = 1);
|
||
End. |