testexternal.out

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

unit TestExternal;

{ AFS 11 March 2K   Test external definitions

  This code is test cases for the code-formating utility


  This stuff doesn't compile, but is copied from delphi units
  So is out of context here
}


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';

{ with line breaks }
function Fooo: string;
  external kernel32 Name 'Fish';


function Wibble: boolean;
  external;

implementation

uses Dialogs;

{ in the imp. section }

procedure Spon; external;
procedure Spon2; external;

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

procedure Spon3; external;

end.