testampersand.out

格式化源码的最新板

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.