Smart pascal source code


{ TApplication }
procedure TApplication.RunApp;
var
  b : Array [0 .. 5] Of String;
  v : Variant := '5';

Begin
b[v] := '56';

v:='';
try
   b[v] := '56';
except
   on e: Exception do
      WriteLn(e.Message.Before(' ('));
end;

v := False;
b[v] := '123';
WriteLn(b[5]);  // 56
WriteLn(b[v]);  // 123
WriteLn(b[0])   //

{ CONSOLE OUTPUT

  b = ["", "", "", "", "", "56", "": "56", false: "123"]

}

function StrBefore(s,d){if(!d)return s;var p=s.indexOf(d);return(p<0)?s:s.substr(0,p)}

var Exception={
	$ClassName: "Exception",
	$Parent: TObject,
	$Init: function () { FMessage="" },
	Create: function (s,Msg) { s.FMessage=Msg; return s }
}
function $W(e) { return e.ClassType?e:Exception.Create($New(Exception),e.constructor.name+", "+e.message) }

function $Is(o,c) {
	if (o===null) return false;
	return $Inh(o.ClassType,c);
};
function $Inh(s,c) {
	if (s===null) return false;
	while ((s)&&(s!==c)) s=s.$Parent;
	return (s)?true:false;
};


      var b = ["","","","","",""],
         v,
         v = "5";
      b[v] = "56";
      v = "";
      try {
         b[v] = "56";
      } catch ($e) {
         var e = $W($e);
         WriteLn(StrBefore(e.FMessage," ("))      }
      v = false;
      b[v] = "123";
      WriteLn(b[5]);
      WriteLn(b[v]);
      WriteLn(b[0]);