testdelphinetdottedtype.obs

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

unit testdelphinetdottedtype;interface type tmyclass=class public msexceltype:system
.type;objvalue:system.object;end;tmyclass2=class private objvalue:system.object;msexceltype
:system.type;public function getobject(mytype:system.type):tobject;procedure catchdottedexception
;end;implementation uses system.runtime.remoting;procedure tmyclass2.catchdottedexception
;begin try except on exp:system.runtime.remoting.remotingexception do begin end;end
;end;function tmyclass2.getobject(mytype:system.type):tobject;begin objvalue:=system
.object(convert.todouble(console.readline));msexceltype:=system.type.gettypefromprogid
('Excel.Application',true);result:=nil;end;end.