線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:1152
推到 Plurk!
推到 Facebook!

求助Delphi的DLL编程问题

 
neverhood
一般會員


發表:1
回覆:0
積分:0
註冊:2006-11-12

發送簡訊給我
#1 引用回覆 回覆 發表時間:2006-11-12 19:44:21 IP:60.166.xxx.xxx 未訂閱
大家好,新来的,关于DELPHI的DLL编程。我的代码:uses
SysUtils,
Classes;
{$R *.res}
begin
Function Max(x,y,z:Integer):Integer;stdcall;
var
t:Integer;
begin
if(x t:=y
else
t:=x;
if(t t:=z;
max:=t;
end;
exports Max;
end.
上面的是主要代码~~~但是我调试总是
[Error] Project1.dpr(19): Statement expected but 'FUNCTION' found
我不知道怎么回事?请各位大侠帮帮忙让它编译通过,都调试几个下午了一样的,不然就是显示:
Cannot Debug ~~~~省略~~ Run no Perameters in Dialog box.
------
123
zolo_ljx
一般會員


發表:1
回覆:4
積分:1
註冊:2006-11-13

發送簡訊給我
#2 引用回覆 回覆 發表時間:2006-11-13 13:36:43 IP:211.139.xxx.xxx 未訂閱
library Mydll;
uses
SysUtils,
Classes;

{$R *.res}
Function Max(x,y,z:Integer):Integer;stdcall;
var
t:Integer;
begin
if(x t:=y
else
t:=x;
if(t t:=z;
max:=t;
end;

exports Max;
begin

end.

可能是Begin的位置放錯了!你再試試!
系統時間:2024-05-19 17:46:31
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!