unit testampersand;interface implementation function tester(foo:integer):integer ;begin result:=foo+3;end;procedure hiddenproc;var width:integer;begin width:=&testampersand .tester(500);end;end.
虫虫下载站 半导体技术网 电子研发网 源码地带 电源技术网 单片机技术网 医疗电子技术 嵌入式系统与单片机
