ClassType nil

Smart pascal source code


var
  c : TClass;
Begin
if c=nil then
   WriteLn('nil default');

c := TObject.ClassType;

if c<>nil then
   WriteLn(c.ClassName);

c:=nil;

if c<>nil then
   WriteLn('bug 3')
else WriteLn('set nil');

{ <<< CONSOLE OUTPUTS >>>
  nil default
  TObject
  set nil
}

      var c = null;
      if (!c) {
         WriteLn("nil default");
      }
      c = TObject.ClassType(TObject);
      if (c) {
         WriteLn(ClassName$1(c));
      }
      c = null;
      if (c) {
         WriteLn("bug 3");
      } else {
         WriteLn("set nil");
      }