delphi2007用TSQLStoredProc调ORACLE的包出错.在delphi7 中同样的语法不报错,有那个兄弟碰到过不 ( 积分: 100 )

SQLStoredProc:=TSQLStoredProc.Create(nil);<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;SQLStoredProc.SQLConnection:=SQLConnection1;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;SQLStoredProc.PackageName:='NewbillSystem';<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;SQLStoredProc.StoredProcName:='querybillprotect';<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;/////////////////////////////////////<br><br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;SQLStoredProc.Params.Clear;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;SQLStoredProc.Params.CreateParam(ftString,'billCode',ptInput);<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;SQLStoredProc.Params.CreateParam(ftString,'billZg',ptInput);<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;SQLStoredProc.Params.CreateParam(ftString,'stockcode',ptInput);<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;SQLStoredProc.Params.CreateParam(ftFloat,'syear',ptInput);<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;SQLStoredProc.Params.CreateParam(ftFloat,'smonth',ptInput);<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;SQLStoredProc.Params.CreateParam(ftFloat,'sday',ptInput);<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;SQLStoredProc.Params.CreateParam(ftFloat,'eyear',ptInput);<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;SQLStoredProc.Params.CreateParam(ftFloat,'emonth',ptInput);<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;SQLStoredProc.Params.CreateParam(ftFloat,'eday',ptInput);<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;SQLStoredProc.Params.CreateParam(ftCursor,'outcursor',ptOutput);<br>&nbsp;&nbsp;&nbsp;&nbsp;///////////////////////////////////////////////////////////<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;SQLStoredProc.ParamByName('billcode').Value:='';<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;SQLStoredProc.ParamByName('billzg').Value:='';<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;SQLStoredProc.ParamByName('stockcode').Value:='';<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;SQLStoredProc.ParamByName('syear').Value:=syear;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;SQLStoredProc.ParamByName('smonth').Value:=smonth;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;SQLStoredProc.ParamByName('sday').Value:=sday;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;SQLStoredProc.ParamByName('eyear').Value:=eyear;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;SQLStoredProc.ParamByName('emonth').Value:=emonth;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;SQLStoredProc.ParamByName('eday').Value:=eday;<br>&nbsp;&nbsp;&nbsp;&nbsp;try<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;SQLStoredProc.Open&nbsp;;<br>&nbsp;&nbsp;&nbsp;&nbsp;except<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Raise;<br>&nbsp;&nbsp;&nbsp;&nbsp;end<br>错误提示是&nbsp;list&nbsp;index&nbsp;out&nbsp;of&nbsp;bounds(0)