testgenericclasshelper.obs

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

program testgenericclasshelper;{$APPTYPE CONSOLE}uses sysutils;type tgenerique<t
> =class champ:t end;tgeneriqueint=tgenerique<integer>;thelpergeneriqueint=class 
helper for tgeneriqueint procedure test;end;tgeneriquestring=tgenerique<string>;procedure
thelpergeneriqueint.test;begin writeln('Proc閐ure fournie par un assistant de classe.'
);end;var assistant:tgeneriqueint;assistant2:tgeneriquestring;begin try assistant
:=tgeneriqueint.create;assistant.test;except on e:exception do writeln(e.classname
,': ',e.message);end;readln;end.