library Project2;
uses
SysUtils,
Classes;{$R *.res}
var
i: integer;function myfuc1():integer;function myfuc():integer;
begin Result := myfuc1();
end;function myfuc1():integer;
begin
Result := 0;
end;
begin
end.
编译错误提示信息[Error] Project2.dpr(29): ';' expected but '.' found
[Error] Project2.dpr(31): Declaration expected but end of file found
uses
SysUtils,
Classes;{$R *.res}
var
i: integer;function myfuc1():integer;function myfuc():integer;
begin Result := myfuc1();
end;function myfuc1():integer;
begin
Result := 0;
end;
begin
end.
编译错误提示信息[Error] Project2.dpr(29): ';' expected but '.' found
[Error] Project2.dpr(31): Declaration expected but end of file found
解决方案 »
- TDBNumberEditEh:,数字按钮按了不管用
- 几个简单的问题,望各位高手指点下
- 有关图书管理系统的问题~急请教~
- 如何连接带密码的access数据库
- 怎样做一个类似ie6/outlook express风格的工具条(toolbar)?
- DELPHI 7 中为什么找不到以前的TNMUDP?
- 有谁能救我的命!懂得Z39.50协议的请进来,高分有送!
- 如何把ADOQuery.RecNo赋给表中一列
- 大家知道的回答哟!
- 请问:为什么程序编译运行可以,但是F8单步运行到数据模块的创建时“执行非法操作”?
- inno setup 静默安装installshield打包的程序
- delphi exe 传递参数问题
uses
SysUtils,
Classes;{$R *.res}
var
i: integer;function myfuc1():integer;stdcall;
begin
Result := 0;
end;
function myfuc():integer;stdcall;
begin Result := myfuc1();
end;exports
myfuc;beginend.
所以需要在第一个函数前面做一个声明library Project2;
uses
SysUtils,
Classes;{$R *.res}
var
i: integer; function myfuc():integer;stdcall;function myfuc1():integer;stdcall;
begin
Result := myfuc();
end;
function myfuc():integer;stdcall;
begin Result := 0;
end;
beginend.
library PTest;{ Important note about DLL memory management: ShareMem must be the
first unit in your library's USES clause AND your project's (select
Project-View Source) USES clause if your DLL exports any procedures or
functions that pass strings as parameters or function results. This
applies to all strings passed to and from your DLL--even those that
are nested in records and classes. ShareMem is the interface unit to
the BORLNDMM.DLL shared memory manager, which must be deployed along
with your DLL. To avoid using BORLNDMM.DLL, pass string information
using PChar or ShortString parameters. }uses
SysUtils,
Classes;{$R *.res}function MyFunc: Integer; stdcall;
begin
Result := 20;
end;exports
MyFunc;
beginend.
library Project1;
uses
SysUtils,
Classes;{$R *.res}
var
i: integer;
function myfuc():integer;stdcall;
begin
Result := 0;
end;function myfuc1():integer;stdcall;
begin
Result := myfuc();
end;exports
myfuc, myfuc1;beginend.