dll有关问题,简单

dll问题,简单
library firdll;

uses
  SysUtils,
  Classes,
  Un in 'Un.pas';

{$R *.res}

begin
end.


unit Un;

interface

uses Windows, Messages, Dialogs, SysUtils;

var
  function fu:bool;stdcall; //identifier expected but 'function' found;

implementation //type expected but 'implemention' found 

function fu:integer;

begin
  result:=0;
end;

end.
 
多谢

[解决办法]
function fu:bool;stdcall; //identifier expected but 'function' found; 

implementation //type expected but 'implemention' found

function fu:integer; 
函数返回值不相同 ，
[解决办法]

1:
var
function fu:bool;stdcall; //identifier expected but 'function' found;

var 是用来定义变量的，你没有定义变量这个var就不需要了

2：
function fu:integer;
begin
result:=0;
end;

函数声明不一致，改成
function fu:bool;stdcall;
begin 
result:=false; 
end;