动态链接库问题，下面这段dll代码有什么问题？？

Question

library AddNum;
uses
SysUtils,
Classes;
{$R *.res}
function AddNumber(Num1,Num2:integer):integer;stdcall; //定义求和函数
　begin
　　result:=Num1+Num2;
　end;
　　exports
　　AddNumber; //引出求和函数
　begin
end.

Answer 1

去掉begin
library AddNum;
uses
SysUtils,
Classes;
{$R *.res}
function AddNumber(Num1,Num2:integer):integer;stdcall; //定义求和函数
　begin
　　result:=Num1+Num2;
　end;
　　exports
　　AddNumber; //引出求和函数
　//begin
end.

Answer 2

function AddNumber(Num1,Num2:integer):integer;stdcall; //定义求和函数
　begin
　　result:=Num1+Num2;
　end;
end.
exports
AddNumber; //引出求和函数Exports放到外面

Answer 3

给你个例子:
library jezh;uses
  SysUtils,
  Classes,dialogs;
function myjezh(xxje:real):string;stdcall;
var i,j:integer;
    xs_old,xs_new:string;//小数
    zs_old,zs_new:string;//整数
const
  cnumber: array [0..9] of string=('零','壹','贰','叁','肆','伍','陆','柒','捌','玖');
  cdw:array [0..8] of string=('元','拾','佰','仟','万','拾','佰','仟','亿');
begin
  //取整
  ........end;exports myjezh;
begin
end.

Answer 4

是不是我生成dll文件的方法不对？？请教步骤是什么？？？

Answer 5

jack_zhong() 你的例子,一定不能正确运行

Answer 6

我的步骤是：file-new-other-dll wizard添加以下源代码；
library project2;
uses
  SysUtils,
  Classes;
procedure Test;
begin
  showmessage('this is a test!');
end;
exports 
    test;
begin 
end;
然后按键Alt+P,B建立TestDll.Dll，却无法建立，为什么？？
其中，错误提示是：[Error] Project2.dpr(20): Undeclared identifier: 'showmessage'

Answer 7

楼主，在你的USES 中加入
Dialogs;
 就可以了。
因为你使用了SHOWMESSAGE（）；