operator overloading 1

Smart pascal source code


function StrPlusInt(s: String; i: Integer): String;
begin
  Result := s + '[' + IntToStr(i) + ']';
end;

operator + (String, Integer): String uses StrPlusInt;

WriteLn('abc' + 123);

var s := 'abc' + 123 + 456;

WriteLn(Length(s));
WriteLn(s);

{<<< RESULT - CONSOLE LOG >>>
-----------------------------
abc[123]
13
abc[123][456]

-----------------------------
{<<<<<<<<< THE END >>>>>>>>>}

function WriteLn(value) {
    if (window.console) { window.console.log(value); } };
function StrPlusInt(s$1, i) {
   return s$1+"["+i.toString()+"]";
};
var s = "";

/* <<< main JS >>> */

   WriteLn(StrPlusInt("abc",123));
   s = StrPlusInt(StrPlusInt("abc",123),456);
   WriteLn(s.length);
   WriteLn(s);