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

TestSamples/CompilationSamples/DS0014.pas

27 строк293 B

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

initial commit

14 май 2015, 22:35

14 май 2015, 22:35e6e67c1


type proc=procedure;

var a:array of proc;

type 
     c=class
       function f:array of proc;
       begin
         result:=a;
       end;
     end;
     
procedure p;
begin
  writeln('p');
end;

var cc:c;

begin
  setlength(a,1);
  a[0]:=p;
  a[0];
  cc := new c;
  cc.f[0];
  readln;
end.