littletest45.out

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

unit LittleTest45;

interface

{ test out params and params called out }

function Foo1(out: integer): integer; stdcall; overload; external 'FooDll' Name 'Bargle';
function Foo2(out , Bar: integer): integer; stdcall; overload;
  external 'FooDll' Name 'Snargle';
function Foo3(out out , bar: integer): integer;
  stdcall; overload; external 'FooDll' Name 'Fargle';
function Foo4(out out: integer): integer;
  stdcall; overload; external 'FooDll' Name 'Gargle';
function Foo5(out bar: integer): integer;
  stdcall; overload; external 'FooDll' Name 'Zargle';


implementation

end.