IF THEN ELSE expression case V

Smart pascal source code


var b: Boolean;

var o1 := if b then TObject.Create else nil;

var o2 := if b then nil else TObject.Create;

WriteLn(if Assigned(o1) then o1.ClassName else 'nil');
WriteLn(if Assigned(o2) then o2.ClassName else 'nil');

{<<< RESULT - CONSOLE LOG >>>
-----------------------------
nil
TObject
-----------------------------
{<<<<<<<<< THE END >>>>>>>>>}

var b = false;
var o1 = null,
   o2 = null;

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

   o1 = (b)?TObject.Create($New(TObject)):null;
   o2 = (b)?null:TObject.Create($New(TObject));
   WriteLn(((o1)?ClassName$1($ToClassType(o1)):"nil"));
   WriteLn(((o2)?ClassName$1($ToClassType(o2)):"nil"));