代码如下:
unit Unit1;interface
// function aa(a:Integer):Extended;stdcall;
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
Edit2: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.DFM}
function aa(a:Integer):Integer;stdcall;
begin
result:=a+1000;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
edit2.Text:=IntToStr(aa(StrToInt(Edit1.text)));
end;end.library Project1;uses
// Forms,
Unit1 in 'Unit1.pas' {Form1};
aa in 'Unit1.pas'; //*************
exports
aa;
{$R *.RES}begin
// Application.Initialize;
// Application.CreateForm(TForm1, Form1);
// Application.Run;
end.它说在 *************处 没发现 aa;
怎么解决?
unit Unit1;interface
// function aa(a:Integer):Extended;stdcall;
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
Edit2: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.DFM}
function aa(a:Integer):Integer;stdcall;
begin
result:=a+1000;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
edit2.Text:=IntToStr(aa(StrToInt(Edit1.text)));
end;end.library Project1;uses
// Forms,
Unit1 in 'Unit1.pas' {Form1};
aa in 'Unit1.pas'; //*************
exports
aa;
{$R *.RES}begin
// Application.Initialize;
// Application.CreateForm(TForm1, Form1);
// Application.Run;
end.它说在 *************处 没发现 aa;
怎么解决?
uses中xie3de必须是unit名,就是文件的unit Unit1;后的Unit1,aa是函数名怎么能写在uses里呢。。建议你学好基础的东西再写Dll。。