testdelphinetampersandmethod.obs

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

unit testdelphinetampersandmethod;interface type tclass1=class private emptyvalue
:system.&object;public function testfile:boolean;constructor create;end;var atype
:&type;anothertype:system.&type;anobject:&object;anotherobject:system.&object;implementation
uses system.net,system.io;constructor tclass1.create;var weby1,weby2:webrequest;begin
inherited create;weby1:=webrequest.&create('http://www.google.com');weby2:=system
.net.webrequest.&create('http://www.google.com');end;function tclass1.testfile:boolean
;begin result:=system.io.&file.exists('XY');end;end.