21 lines
292 B
ObjectPascal
21 lines
292 B
ObjectPascal
type
|
|
|
|
Fixer<TFixer> = class
|
|
where TFixer: Fixer<TFixer>;
|
|
|
|
procedure p1;
|
|
begin
|
|
var a: TFixer;
|
|
assert(a = nil);
|
|
var o := self as object;
|
|
end;
|
|
|
|
end;
|
|
|
|
DerFixer = class(Fixer<DerFixer>)
|
|
end;
|
|
|
|
begin
|
|
var obj := new DerFixer();
|
|
obj.p1;
|
|
end. |