arrays - 如何将可变长度数组常量作为参数传递？

Question

我有许多二维数组常量，其长度为一维变量，如下所示:

const
  ThiamineRDA: array[0..2, 0..3] of Double =
   ((0, 0, 0.05, 0.2), (0, 0.06, 0.11, 0.3), (0, 1, 3, 0.5));
  RiboflavinRDA: array[0..1, 0..3] of Double =
   ((0, 0, 0.05, 0.2), (0, 0.06, 0.11, 0.3));

我想将此常量作为参数传递给过程:

  LoadIntakes(Item, ThiamineRDA);

但是我如何定义该过程以允许该参数？

procedure LoadIntakes(Item:PNutrientInfo; IntakesList: array of... ???? );
begin
 //.....
end;

Answer 1

您无法传递在二维中开放的开放数组。但如果其中一个维度的大小是固定的，您可以这样做，如下所示:

(我省略了你的第一个参数，以便我可以检查它是否可以编译)

type
  TQArray = array[0..3] of double;
const
  ThiamineRDA: array[0..2] of TQArray =
   ((0, 0, 0.05, 0.2), (0, 0.06, 0.11, 0.3), (0, 1, 3, 0.5));
  RiboflavinRDA: array[0..1] of TQArray =
   ((0, 0, 0.05, 0.2), (0, 0.06, 0.11, 0.3));

procedure LoadIntakes( IntakesList: array of TQArray );
begin
 //.....
end;

procedure Test;
begin
  LoadIntakes( ThiamineRDA );
end;