testdelphinetampersandmethod.out

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

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.