請教各位大大... 我以 edit1.text := IntToStr(calcTotal('銷貨','鉚釘')); 呼叫 function calcTotal(GetItem,GetPlace : String) : Integer; 為什麼發生 Too many actual parameters.....

單看這兩行你的程式碼應是沒問題的... 會不會是你在源程式時手誤打錯字，post時重新打過打對了? 另你碼定錯誤是發生在你上面的第一行嗎? 若你對過沒問題，可否 copy 多一點的 Code 來看看

引言: 請教各位大大... 我以 edit1.text := IntToStr(calcTotal('銷貨','鉚釘')); 呼叫 function calcTotal(GetInOut,GetItem : String) : Integer; 為什麼發生 Too many actual parameters.....

Function TfmMyFood.calcTotal(GetInOut,GetItem : String) : Integer ; var sMoney : Integer; sDate : String; begin // 此段取得月初到今天 各項 總消費 sMoney := 0; sDate := sYear sMonth '0100' ; with qyTemp do begin close; SQL.Clear; SQL.Add('SELECT FoodNo,FoodDate,InOut,FoodSelect,FoodQty,FoodPrice'); SQL.Add('FROM Food'); SQL.Add('WHERE InOut = :InOut AND FoodSelect = :FoodSelect AND FoodNo >= :FoodNo'); ParamByName('InOut').AsString := GetInOut; ParamByName('FoodSelect').AsString := GetItem; ParamByName('FoodNo').AsString := sDate; Open; while not eof do begin sMoney := sMoney FieldByName('FoodQty').AsInteger; next; end; end; Result := sMoney; end;

問題應出在呼叫那邊罷，若你確認 edit1.text := IntToStr(calcTotal('銷貨','鉚釘')); 這句沒打錯且 Too many actual parameters 確定是出自這行那便真的怪怪的了... 另一個不相關的效率問題: 既然你使用 Params, SQL 本身沒變，應不用每次 Clear 再 Add, 只要重設 Param 後重開就可以了。

引言: 問題應出在呼叫那邊罷，若你確認 edit1.text := IntToStr(calcTotal('銷貨','鉚釘')); 這句沒打錯且 Too many actual parameters 確定是出自這行那便真的怪怪的了... 另一個不相關的效率問題: 既然你使用 Params, SQL 本身沒變，應不用每次 Clear 再 Add, 只要重設 Param 後重開就可以了。 謝謝你.... 我知道錯在哪裡了... 這個程式是用現成的改的.. so 沒有注意到最上面定義function.. 本來是傳一個參數,, 後來又加了一 個.. 而最上行的定義忘了更改...

這不是應該出現 decoration of xxx differs from previous decoration 的嗎? 可能是你呼叫的地方在被呼叫的地方之前罷 通常儘量把被呼叫的放前會容易 debug 一些，不過有時也是不可能的。 其實，你發理錯誤後 Ctrl-Click CalcTotal 會到上面的 decoration, 這樣便會最些發理問題了。