16 lines
180 B
ObjectPascal
16 lines
180 B
ObjectPascal
|
type
|
|||
|
|
t1=class
|
|||
|
|
|
|||
|
|
end;
|
|||
|
|
t2=class
|
|||
|
|
class function operator*(a:t1;b:t2):t2;
|
|||
|
|
begin
|
|||
|
|
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
begin
|
|||
|
|
var a:t1;
|
|||
|
|
var b:t2;
|
|||
|
|
var c{@var c: t2;@} := a*b;
|
|||
|
|
end.
|