testexternal.out

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

unit testexternal;

interface

uses Windows;

procedure fred; cdecl;
procedure floattodecimal(var Result: integer; const Value; valuetype: integer; precision, decimals: integer); external;
function floattotext(buffer: PChar;
  const Value; valuetype: integer; format: integer; precision, digits: integer): integer; external;
function addatoma: atom; external kernel32 Name 'AddAtomA';
function arefileapisansi: bool; external kernel32 Name 'AreFileApisANSI';
function beep: bool; external kernel32 Name 'Beep';
function fooo: string; external kernel32 Name 'Fish';
function wibble: boolean; external;

implementation

uses Dialogs;

procedure spon; external;
procedure spon2; external;

procedure fred;
begin
  ShowMessage('Fred');
end;

procedure spon3; external;

end.