testexternal.obs

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

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.