不太會用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 發送簡訊給我 |
引言:不好意思我照這樣打還是錯誤ㄛ不過很謝謝妳的回答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 發送簡訊給我 |
引言:引言:不好意思我照這樣打還是錯誤ㄛ不過很謝謝妳的回答 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.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========================= 為學日益,為道日損,損之又損,以致於無。為無為,而無不為。 |
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 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |