不太會用function |
|
尚未結案
|
|
cherng32
一般會員   發表：26 回覆：24 積分：10 註冊：2002-09-18 發送簡訊給我 |
function genfre():integer; var c,k,j:integer; begin
e:=0;
If x>0 then
for k:=1 to k<=totaltid
begin If supp[k]>=c then<-------出現Missing operator or semicolon
for j:=1 to j<=supp[k]
begin<--------------------出現Missing operator or semicolon
item[j]:=tid[k,j];
item_num:=supp[k];
chose_num:=c;
function generate():integer;<-----如果我還要呼叫另一個
function這樣寫對嗎??
end;
end. 另外想請問一下在c 中void的副程式呼叫如果在delphi中是否可用function代替或是應該使用procedure??
謝謝 發表人 - cherng32 於 2004/03/01 13:18:07
|
|
Leway
一般會員 發表：43 回覆：71 積分：22 註冊：2003-07-29 發送簡訊給我 |
function genfre():integer; var
c,k,j:integer;
function generate():integer;
begin
end; begin
e:=0;
If x>0 then
for k:=1 to totaltid do
begin
If (supp[k]>=c) then
for j:=1 to upp[k] do
begin
item[j]:=tid[k,j];
item_num:=supp[k];
chose_num:=c;
generate()
end;
end; end. c 中void的副程式應該使用procedure
=========================
為學日益，為道日損，損之又損，以致於無。為無為，而無不為。
|
|
cherng32
一般會員 發表：26 回覆：24 積分：10 註冊：2002-09-18 發送簡訊給我 |
引言:
不好意思我照這樣打還是錯誤ㄛ不過很謝謝妳的回答
|
|
cherng32
一般會員 發表：26 回覆：24 積分：10 註冊：2002-09-18 發送簡訊給我 |
引言:引言:不好意思我照這樣打還是錯誤ㄛ不過很謝謝妳的回答 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) private public end; var Form1: TForm1; tid:array [1..400000,1..40] of integer; supp:array [1..400000] of integer; b,c,d,e,g,h,i,j,k,l,m,x,y,z,nh,nh2:integer; totaltid,totalpid,totalfrecount,modsize:integer; modvalue,miniterms,item_num,chose_num:integer; first,tmpsupp,tmpc:integer; cl:array[1..181] of integer; fl: array[1..181] of integer; num:array[1..10] of integer; item:array[1..40] of integer; cand :array [1..10] of integer; const tablesize=10000; kid_item=181; function genfre():integer; function gencand3():integer; implementation {$R *.dfm} function genfre():integer; var c,k,j:integer; function generate():integer; begin end; begin e:=0; If x>0 then for k:=1 to totaltid do begin If (supp[k]>=c) then for j:=1 to supp[k] do begin item[j]:=tid[k,j]; item_num:=supp[k]; chose_num:=c; generate() end; end; end. |
|
Miles
尊榮會員  發表：27 回覆：662 積分：622 註冊：2002-07-12 發送簡訊給我 |
Hi cherng32 :
若沒回傳直應該要用procedure
function genfre : integer; function generate : integer;
begin
;
end; var c,k,j:integer;
begin
e:=0;
If x>0 then
for k:=1 to k<=totaltid do
begin
If supp[k]>=c then
for j:=1 to j<=supp[k] do
begin
item[j]:=tid[k,j];
item_num:=supp[k];
chose_num:=c;
generate;
end;
end;
end; 我不是高手, 高手是正在銀幕前微笑的人.
------
我不是高手, 高手是正在銀幕前微笑的人. |
|
Leway
一般會員 發表：43 回覆：71 積分：22 註冊：2003-07-29 發送簡訊給我 |
下面的代碼我試驗過，Compile沒有問題了
unit Unit1; interface uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs; type
TForm1 = class(TForm)
private public end; var
Form1: TForm1;
tid:array [1..400000,1..40] of integer;
supp:array [1..400000] of integer;
b,c,d,e,g,h,i,j,k,l,m,x,y,z,nh,nh2:integer;
totaltid,totalpid,totalfrecount,modsize:integer;
modvalue,miniterms,item_num,chose_num:integer;
first,tmpsupp,tmpc:integer; cl:array[1..181] of integer;
fl: array[1..181] of integer;
num:array[1..10] of integer;
item:array[1..40] of integer;
cand :array [1..10] of integer; const
tablesize=10000;
kid_item=181; function genfre():integer;
//function gencand3():integer; implementation {$R *.dfm} function genfre():integer;
var
c,k,j:integer;
function generate():integer;
begin end; begin
e:=0;
If x>0 then
for k:=1 to totaltid do
If (supp[k]>=c) then
for j:=1 to supp[k] do
begin
item[j]:=tid[k,j];
item_num:=supp[k];
chose_num:=c;
generate();
end;
end;
end.
=========================
為學日益，為道日損，損之又損，以致於無。為無為，而無不為。
|
|
Leway
一般會員 發表：43 回覆：71 積分：22 註冊：2003-07-29 發送簡訊給我 |
|
|
Leway
一般會員 發表：43 回覆：71 積分：22 註冊：2003-07-29 發送簡訊給我 |
發表時間：2004-03-01 13:06:38
IP:140.127.xxx.xxx 未訂閱
系統時間：2024-05-07 8:57:05
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |