Delphi/Pascal单元中全局动态数组替代定长向量数组的技术问询

我来帮你把定长数组改成动态数组，完美适配你读取文件后才知道长度的需求，具体修改步骤如下：

1. 修改类型定义，替换为动态数组类型 #

首先把原来的静态数组类型删掉，换成动态数组类型，同时可以移除maxval常量——动态数组不需要预设最大长度：

unit xyz;
interface
uses abc;
// 移除const maxval=50;
type
vectorofdouble = array of double; // 改成动态数组类型

2. 保留对象内的变量声明（类型自动适配） #

你的T_xyz对象里的var1、var2、var3不用改名字，现在它们自动变成动态数组类型了：

T_xyz = object
public
NP: integer; // 这个用来存储实际读取到的数组长度
private
var1: vectorofdouble;
var2: vectorofdouble;
public
number: integer;
var3: vectorofdouble;
// ... 其他成员声明不变
end;

3. 在ReadFile中设置动态数组的实际长度 #

读取到NP值之后，直接给每个动态数组调用SetLength，就能让数组长度和实际需求完全匹配：

procedure T_xyz.ReadFile(const FileName, inputs: string);
var
  i: integer;
begin
  // 先完成文件读取，拿到NP值，比如：Read(F, NP);
  // 给三个动态数组设置实际长度
  SetLength(var1, NP);
  SetLength(var2, NP);
  SetLength(var3, NP);
  
  // 循环只遍历实际元素数量，用High()或直接NP-1都可以
  for i := Low(var1) to High(var1) do
    var1[i] := 0;
  // 也可以写成 for i := 0 to NP-1 do，效果完全一致
end;

4. 调整其他循环逻辑 #

比如func1里的循环，同样换成遍历实际数组长度，告别固定的maxval：

function T_xyz.func1(etc): integer;
var
  i: integer;
begin
  // ... 其他业务逻辑
  for i := Low(var2) to High(var2) do
    var2[i] := 0;
end;

小提示 #

• Delphi动态数组默认是0基索引，如果你的旧代码用的是1基（原来的静态数组是[1..maxval]），记得调整循环的起始/结束值。要是想强行保留1基，可以把长度设为NP+1，然后循环从1到NP，但更推荐适配0基——这是Delphi的常规用法。
• 现代Delphi版本中，动态数组会自动管理内存，不需要手动释放，省心很多。

这样修改后，数组长度完全由读取到的NP决定，循环也只会遍历实际存在的元素，彻底解决你的问题。

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