testampersand.out

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

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.