delphi - 如何声明一个长度在运行时指定的数组？

Question

我需要声明一个具有用户定义维度的数组。这个数组在一个非常大的程序中，更改为列表可能是一个很大的问题。

现在我的数组声明如下：

Buffer: array[0..myCostant * 2] of Byte;

并且myCostant就像它所说的那样，是一个已经定义的常量。现在我需要使用一个变量，得到这样的东西：

Buffer: array[0..myVar * 2] of Byte;

但我不能在数组定义中使用变量。

我如何在不改变我的数组的情况下解决这个问题？这个变量是上限的，所以我可以用这个最大大小声明数组并用另一条指令减少它吗？

score 10 · Accepted Answer

您应该使用动态数组：

var
  Buffer: array of Byte;

begin
  SetLength(Buffer, myVar*2 + 1);

或者，您可以使用已知上限长度的静态数组，并将数组的当前“有意义”长度记录在变量中，例如CurrentLength.

然后你可以替换，例如，

for i := 0 to Length(Buffer) - 1 do
  SomethingWith(Buffer[i]);

经过

for i := 0 to CurrentLength - 1 do
  SomethingWith(Buffer[i]);

1 回答 1