Function needs result type 这个问题 大家帮帮忙啊

Question

function FIND(ACSD :Integer):Integer  external ; // stdcall;       function THID.FIND(ACSD : INTEGER) : INTEGER;
 var ACSD ,ABC :Integer ; 
  begin
   Result :=1 ;
   ACSD :=4294967295   ;
   ABC := FIND(ACSD);
   IF (ABC = 0) THEN
    begin
     Result := 0 ;
    end ;
   Else
     raise Exception.Create('读取程序标示失败！');
 END ;在编译的时候总提示
Function needs result type

Answer 1

function FIND(ACSD :Integer):Integer ;external ;
external 前加分号

Answer 2

  external表示你引用的这个procedure或者function是源自你程序以外的地方，例如.obj文件和dll文件
  

Answer 3

比如连接一个BLOCK.OBJ
加一句{$L BLOCK.OBJ}  
procedure MoveWord(var Source, Dest; Count: Integer); external;又比如连接dll
function SomeFunction(S: string): string; external 'strlib.dll';