testgenericarray.obs

来自「格式化源码的最新板」· OBS 代码 · 共 7 行

program testgenericarray;{$APPTYPE CONSOLE}uses sysutils;type genarray1dim<t> =array
of t;genarray2dim<t> =array of genarray1dim<t>;arrint1dim=genarray1dim<integer>;arrint2dim
=genarray2dim<integer>;t2dim=array of array of integer;var tabint:arrint1dim;tab2int
:arrint2dim;tabtype2dim:t2dim;begin try tabint:=new(genarray1dim<integer>,2);tabint
:=new(arrint1dim,2);tab2int:=new(t2dim,2,2);tab2int:=new(arrint2dim,2,2);tabtype2dim
:=new(t2dim,2,2);tabtype2dim:=new(arrint2dim,2,2);except on e:exception do writeln
(e.classname,': ',e.message);end;end.