partial class 2

Smart pascal source code


unit ToDoModel;

interface

type
  TToDoCategoryList = array of string;

  TToDoModel = partial class public Category: TToDoCategoryList;
end;

var Model: TToDoModel;

implementation

type
  TToDoModel = partial class end;

initialization

Model := TToDoModel.Create;
WriteLn(Model.ClassName);

end.

{<<< RESULT - CONSOLE LOG >>>
-----------------------------
TToDoModel
-----------------------------
{<<<<<<<<< THE END >>>>>>>>>}

function ClassName$1(Self$1) {
   return "Helper1."+TObject.ClassName($Check(Self$1,""));
}
var TToDoModel = {
   $ClassName:"TToDoModel",$Parent:TObject
   ,$Init:function ($) {
      TObject.$Init($);
   }
   ,Destroy:TObject.Destroy
};
var Model = null;
var Model = TObject.Create($New(TToDoModel));
WriteLn(ClassName$1($ToClassType(Model)));