procedure TForm1.nor1(avg,cov:real;num:integer; var nor:TRealArray); var U1,U11,U12,U13,X,U21,U22,U31,U32,V,VV,V1,gv,U41,U42,W,C,S,T,SS,TT,V41,V42,Y:real;     i:integer;    其中一段的程式:  Else if (0.9745

二個Procedure的關係為何？

此為另一個procedure..兩者之間並無關聯,不會相互呼叫 不知道問題是不是出在這裡........[sorry敍述很差]

procedure TForm1.exp(landa:real;num:integer;var er:TRealArray);//TForm1類別中的exp程序 gv:=17.49731196*(1/exp(Power(V,2)/2))-2.36785163*Power((3-VV),2); 原本呼叫庫存函數，但是COMPILER認為你要呼叫本身類別中的exp方法，知道問題在哪裡了吧！ ----------------------- Practice makes perfect.

這就是我請問您(二個Procedure的關係為何？)的原因， 因您貼的第一個獨立執行時，是呼叫保留字EXP， 再加上另一個procedure時,就出現沒有足夠的實際參數--> 因procedure TForm1.exp您又自行定義了需傳入三個參數， 而exp(Power(V,2)/2))只傳一個參數而已。 Stallion大大也真是聰明啊.

謝謝二位大大 真的是太感謝了 終於可以交上作業了! 原來...原來如此... 再次感謝大大們!!