Keras4Delphi中Python数组转Delphi Double数组报错求助

当调用TNDarray.AsArrayofDouble出现"Invalid variant operation"错误时，通常是因为该方法仅支持特定维度（如一维）或数据类型的numpy数组，而模型输出的多维数组不符合要求。以下是几种可行的替代方案：

方案1：扁平化数组后逐个提取元素 #

先将多维numpy数组转为一维，再遍历提取每个元素到Delphi Double数组：

var
  x_test, y_test, flattened: TNDarray;
  y_out: TArray<Double>;
  i: Integer;
begin
  x_test := TNumPy.npArray( [ [ 0, 1 ] ] );
  y_test := model.Predict(x_test);
  
  // 将多维数组扁平化
  flattened := y_test.ravel;
  
  // 初始化目标数组长度
  SetLength(y_out, flattened.shape[0]);
  
  // 逐个读取元素
  for i := 0 to flattened.shape[0] - 1 do
    y_out[i] := flattened.Item[i].AsDouble;
end;

方案2：通过Variant数组转换 #

利用TNDarray.AsVariant获取数组的Variant表示，再转换为Delphi Double数组：

var
  x_test, y_test: TNDarray;
  y_out: TArray<Double>;
  varArr: Variant;
  lowIdx, highIdx, i, offset: Integer;
begin
  x_test := TNumPy.npArray( [ [ 0, 1 ] ] );
  y_test := model.Predict(x_test);
  
  varArr := y_test.AsVariant;
  if VarIsArray(varArr) then
  begin
    lowIdx := VarArrayLowBound(varArr, 1);
    highIdx := VarArrayHighBound(varArr, 1);
    offset := lowIdx;
    
    SetLength(y_out, highIdx - lowIdx + 1);
    for i := lowIdx to highIdx do
      y_out[i - offset] := varArr[i];
  end;
end;

方案3：直接读取内存数据（需确认数据类型） #

如果模型输出是float64类型（对应Delphi Double），可以直接读取TNDarray的内存缓冲区：

var
  x_test, y_test: TNDarray;
  y_out: TArray<Double>;
  dataPtr: PDouble;
  i: Integer;
begin
  x_test := TNumPy.npArray( [ [ 0, 1 ] ] );
  y_test := model.Predict(x_test);
  
  // 确认数组数据类型为float64
  if y_test.dtype.Equals('float64') then
  begin
    SetLength(y_out, y_test.size);
    dataPtr := PDouble(y_test.Data);
    
    for i := 0 to y_test.size - 1 do
    begin
      y_out[i] := dataPtr^;
      Inc(dataPtr);
    end;
  end;
end;

注意事项 #

• 先通过y_test.dtype确认数组的数据类型，若为float32，需转换为PSingle再读取后转Double。
• 若输出是多维数组，可通过y_test.shape获取各维度长度，按需进行嵌套遍历提取元素。

内容的提问来源于stack exchange，提问作者RoelsRule