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

TestSamples/CompilationSamples/del_test3.pas

27 строк284 B

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

initial commit

14 май 2015, 22:35

14 май 2015, 22:35e6e67c1

type 
   del1=procedure;
   del2=function:array of del1;

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

function f:array of del1;
var a:array of del1;
begin
  SetLength(a,1);
  a[0]:=p;
  result:=a;
end;

var d:del2;
    d1:del1;

begin
  d:=f;
  d()[0];
  d1:=d()[0];
  d1;
  readln;
end.