14 lines
318 B
ObjectPascal
14 lines
318 B
ObjectPascal
type
|
||
t3 = class end;
|
||
t2 = class
|
||
class function operator implicit(a: t2): t3 := new t3;
|
||
end;
|
||
t1 = class
|
||
class function operator/(a: t1; b: t3): t1 := new t1;
|
||
end;
|
||
|
||
begin
|
||
var a := new t1;
|
||
var b := new t2;
|
||
var c{@var c: t1;@} := a / b;//тут у b неявно приводится тип
|
||
end. |