Delphi 动态数组计数

Delphi 中的动态数组允许我们在程序运行时动态地分配和管理数组的大小。在很多情况下，我们需要计算一个动态数组的元素个数，本文将介绍如何实现这一功能。

实现方法

我们可以使用两种方法来计算一个动态数组的元素个数。

方法 1：使用 Length 函数

在 Delphi 中，我们可以使用 Length 函数来获取一个数组的元素个数。这个函数对于静态数组和动态数组都适用。例如，下面的代码演示了如何使用 Length 函数获取一个动态数组的元素个数：

program DynamicArrayCount;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  MyArray: array of Integer;
begin
  // 在数组中添加一些元素 
  SetLength(MyArray, 5);
  MyArray[0] := 1;
  MyArray[1] := 2;
  MyArray[2] := 3;
  MyArray[3] := 4;
  MyArray[4] := 5;

  // 显示数组的元素个数 
  Writeln('数组的元素个数为：', Length(MyArray));
  Readln;
end.

上述代码中，我们首先创建一个名为 MyArray 的动态数组，然后向其中添加了 5 个元素。然后我们使用 Length 函数获取了 MyArray 的元素个数，并将其输出到控制台。

方法 2：使用 High 函数和 Low 函数

另一种计算动态数组元素个数的方法是使用 Delphi 中的 High 函数和 Low 函数。High 函数返回数组的最高下标，Low 函数返回数组的最低下标。因此，我们可以使用下面的公式计算一个动态数组的元素个数：

元素个数 = High(MyArray) - Low(MyArray) + 1;

下面的代码演示了如何使用 High 函数和 Low 函数获取一个动态数组的元素个数：

program DynamicArrayCount2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  MyArray: array of Integer;
  Count: Integer;
begin
  // 在数组中添加一些元素 
  SetLength(MyArray, 5);
  MyArray[0] := 1;
  MyArray[1] := 2;
  MyArray[2] := 3;
  MyArray[3] := 4;
  MyArray[4] := 5;

  // 计算数组的元素个数 
  Count := High(MyArray) - Low(MyArray) + 1;

  // 显示数组的元素个数 
  Writeln('数组的元素个数为：', Count);
  Readln;
end.

总结

在 Delphi 中，我们可以使用 Length 函数或 High 函数和 Low 函数来计算一个动态数组的元素个数。这两种方法都非常简单易懂，读者可以根据自己的需要选择其中一种来使用。