8 lines
160 B
ObjectPascal
8 lines
160 B
ObjectPascal
|
function operator*(s1:string;s2:single):byte; extensionmethod := 1;
|
|||
|
|
|
|||
|
|
function GetSingle := single(0);
|
|||
|
|
|
|||
|
|
begin
|
|||
|
|
var a := '' * GetSingle();
|
|||
|
|
assert(a=1);
|
|||
|
|
end.
|