Smart pascal source code


type 
  TFrame = class 
  end;

type 
  TSubFrame = class(TFrame) 
  end;

type 
  TObjectArr = array of TObject;

procedure TestArr(arr: TObjectArr);
begin
  for var o in arr do 
    Writeln(o.ClassName);
end;

var
  arr: array of TFrame;

  arr.Add(TFrame.Create);
  arr.Add(TSubFrame.Create);
  
  TestArr(arr);

{ *** output ***
  TFrame
  TSubFrame
}  

function TestArr(arr$1) {
   var a$1 = 0;
   var o = null;
   var $temp1;
   for(a$1=0,$temp1=arr$1.length;a$1<$temp1;a$1++) {
      o = arr$1[a$1];
      WriteLn(ClassName$1($ToClassType(o)));
   }
};
var TFrame = {
   $ClassName:"TFrame",$Parent:TObject
   ,$Init:function ($) {
      TObject.$Init($);
   }
   ,Destroy:TObject.Destroy
};
var TSubFrame = {
   $ClassName:"TSubFrame",$Parent:TFrame
   ,$Init:function ($) {
      TFrame.$Init($);
   }
   ,Destroy:TObject.Destroy
};
function $ToClassType(o) {
	if (o===null) return o;
	return o.ClassType
}

      var arr = [];
      arr.push(TObject.Create($New(TFrame)));
      arr.push(TObject.Create($New(TSubFrame)));
      TestArr(arr);