n-dimens/pascalabcnet: The new generation Pascal programming language for .NET

TestSamples/CompilationSamples/del_test2.pas

27 строк281 B

Бондарев Иван

initial commit

14 май 2015, 22:35

14 май 2015, 22:35e6e67c1

type proc=procedure;
     arr=array[1..2] of proc;

var a:arr;

type
     c=class
       function f:arr;
       begin
         result:=a;
       end;
     end;

procedure p;
begin
  writeln('p');
end;

var cc:c;

begin
  a[1]:=p;
  a[1];
  cc := c.create;
  cc.f[1];
  readln;
end.