library firdll;uses
SysUtils,
Classes,
Un in 'Un.pas';{$R *.res}begin
end.
unit Un;interfaceuses 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.
多谢
SysUtils,
Classes,
Un in 'Un.pas';{$R *.res}begin
end.
unit Un;interfaceuses 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.
多谢
函数返回值不相同 ,
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;