property call

Smart pascal source code


type
  TProc = procedure;

type
  TMyFunc = function: String;

type
  TMyFuncOne = function(i: Integer): String;

type
  TTest = class
    FProc: TProc;
    FMyFunc: TMyFunc;
    FMyFuncOne: TMyFuncOne;
    property Proc: TProc read FProc;
    property MyFunc: TMyFunc read FMyFunc;
    property MyFuncOne: TMyFuncOne read FMyFuncOne;
  end;

var t := new TTest;

procedure Hello;
begin
  WriteLn('Hello');
end;

function World: String;
begin
  Result := 'World';
end;

t.FProc := Hello;
t.FMyFunc := World;
t.FMyFuncOne := IntToStr;

t.Proc();
WriteLn(t.MyFunc());

t.Proc;
WriteLn(t.MyFunc);
WriteLn(t.MyFuncOne(1 + 1));

{<<< RESULT - CONSOLE LOG >>>
-----------------------------
Hello
World
Hello
World
2
-----------------------------
{<<<<<<<<< THE END >>>>>>>>>}

function THelper$proc(Self$1) {
   /* null */
}
function World() {
   return "World";
};
var TTest = {
   $ClassName:"TTest",$Parent:TObject
   ,$Init:function ($) {
      TObject.$Init($);
      $.FProc = null;
      $.FMyFunc = null;
      $.FMyFuncOne = null;
   }
   ,Destroy:TObject.Destroy
};
function Hello() {
   WriteLn("Hello");
};
var t = null;

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

   t = TObject.Create($New(TTest));
   $Check(t,"").FProc = Hello;
   $Check(t,"").FMyFunc = World;
   $Check(t,"").FMyFuncOne = IntToStr;
   THelper$proc(t);
   WriteLn($CheckFunc($Check(t,"").FMyFunc,"")());
   THelper$proc(t);
   WriteLn($CheckFunc($Check(t,"").FMyFunc,"")());
   WriteLn($CheckFunc($Check(t,"").FMyFuncOne,"")(2));