for in Array of TProcedure

Smart pascal source code


Type
  TProc = Procedure;

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

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

{ main.pas }
procedure TApplication.RunApp;
var
  arr: Array Of TProc;
  proc: TProc;

Begin
  arr.Add(Hello);
  arr.Add(World);
  arr.Add(World);
  arr.Add(Hello);

  For proc In arr Do
    proc;

  { <<< CONSOLE OUTPUTS >>>
    Hello
    World
    World
    Hello
  }

      var arr = [];
      var proc = null;
      var a$1 = 0;
      arr.push(Hello);
      arr.push(World);
      arr.push(World);
      arr.push(Hello);
      var $temp1;
      for(a$1=0,$temp1=arr.length;a$1<$temp1;a$1++) {
         proc = arr[a$1];
         proc();
      }
	  
function World() {
   WriteLn("World");
};
function Hello() {
   WriteLn("Hello");
};