Smart pascal source code


type
  TMyObj = class
    Field: Integer;
  end;

{ main.pas }

var
  o: TMyObj;

Begin
  WriteLn('Free');
  o := TMyObj.Create;
  o.Free;
  try
    o.Free;
  except
    on E: Exception do
      WriteLn(E.Message);
  end;
  try
    WriteLn(o.Field);
  except
    on E: Exception do
      WriteLn(E.Message);
  end;
  try
    WriteLn(o.ClassName);
  except
    on E: Exception do
      WriteLn(E.Message);
  end;

  WriteLn('Destroy');
  o := TMyObj.Create;
  o.Destroy;
  try
    o.Destroy;
  except
    on E: Exception do
      WriteLn(E.Message);
  end;
  try
    WriteLn(o.Field);
  except
    on E: Exception do
      WriteLn(E.Message);
  end;
  try
    WriteLn(o.ClassName);
  except
    on E: Exception do
      WriteLn(E.Message);
  end;

  WriteLn('nil');
  o := TMyObj.Create;
  o := nil;
  o.Free;
  try
    WriteLn(o.Field);
  except
    on E: Exception do
      WriteLn(E.Message);
  end;
  try
    WriteLn(o.ClassName);
  except
    on E: Exception do
      WriteLn(E.Message);
  end;

  { <<<<<<<<<<<< CONSOLE OUTPUTS >>>>>>>>>>>>>>>>>>>
    Free
    0
    TMyObj
    Destroy
    0
    TMyObj
    nil
    TypeError, Cannot read property 'Field' of null
    TypeError, Cannot read property '$ClassName' of null
  }

     var o = null;
      WriteLn("Free");
      o = TObject.Create($New(TMyObj));
      TObject.Free(o);
      try {
         TObject.Free(o);
      } catch ($e) {
         var E = $W($e);
         WriteLn(E.FMessage)      }
      try {
         WriteLn(o.Field);
      } catch ($e) {
         var E$1 = $W($e);
         WriteLn(E$1.FMessage)      }
      try {
         WriteLn(ClassName$1($ToClassType(o)));
      } catch ($e) {
         var E$2 = $W($e);
         WriteLn(E$2.FMessage)      }
      WriteLn("Destroy");
      o = TObject.Create($New(TMyObj));
      TObject.Destroy$(o);
      try {
         TObject.Destroy$(o);
      } catch ($e) {
         var E$3 = $W($e);
         WriteLn(E$3.FMessage)      }
      try {
         WriteLn(o.Field);
      } catch ($e) {
         var E$4 = $W($e);
         WriteLn(E$4.FMessage)      }
      try {
         WriteLn(ClassName$1($ToClassType(o)));
      } catch ($e) {
         var E$5 = $W($e);
         WriteLn(E$5.FMessage)      }
      WriteLn("nil");
      o = TObject.Create($New(TMyObj));
      o = null;
      TObject.Free(o);
      try {
         WriteLn(o.Field);
      } catch ($e) {
         var E$6 = $W($e);
         WriteLn(E$6.FMessage)      }
      try {
         WriteLn(ClassName$1($ToClassType(o)));
      } catch ($e) {
         var E$7 = $W($e);
         WriteLn(E$7.FMessage)      }
		 
/// TMyObj = class (TObject)
///  [line: 72, column: 3, file: uMain]
var TMyObj = {
   $ClassName:"TMyObj",$Parent:TObject
   ,$Init:function ($) {
      TObject.$Init($);
      $.Field = 0;
   }
   ,Destroy:TObject.Destroy
};