variants

Smart pascal source code


function VariantDemo(v: Variant): Variant;
begin
  case v of
    1:
      Result := True;
    2:
      Result := 3.14159265358;
  end;
end;

var v: Variant;

v := VariantDemo(1);
WriteLn(v);
WriteLn(VariantDemo(2));

{<<< RESULT - CONSOLE LOG >>>
-----------------------------
True
3.14159265358
-----------------------------
{<<<<<<<<< THE END >>>>>>>>>}

function VariantDemo(v$1) {
   var Result = undefined;
   {var $temp1 = v$1;
      if ($temp1==1) {
         Result = true;
      }
       else if ($temp1==2) {
         Result = 3.14159265358;
      }
   }
   return Result
};
var v;

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

   v = VariantDemo(1);
   WriteLn(v);
   WriteLn(VariantDemo(2));