求助,delphi运行出错.

Question

function  training(var data:svmunit.tdata; labe:PDouble; num:integer):TResult;//子函数. TResult是结构体//........以下是调用子函数部分............
Data_Origin_Fit:array of array of real;
 Y:array of real;
 res: TResult;
/*给Data_Origin_Fit和Y赋值*/
 res:=training(data_origin_fit,pdouble(@Y[0]),m);
运行到res:=training(data_origin_fit,pdouble(@Y[0]),m);这个地方时弹出错误对话框
Debugger Exception Notification
---------------------------
Project shujuchuli.exe raised exception class EInvalidOp with message 'Invalid floating point operation'. Process stopped. Use Step or Run to continue.
---------------------------
OK   Help   
---------------------------

Answer 1

Y:array of real; 
动态数组,还没有分配内存.
用setlength(y,n);

Answer 2

Y:Double;
res:=training(data_origin_fit,pdouble(@Y),m);

Answer 3

动态数组在使用之前必须用SetLength来设置数组长度。否则会出现内存访问错误。