Pascal中能否通过用户输入确定记录数组的长度？

标准Pascal不允许用用户输入的变量作为静态数组的长度，这就是你遇到错误的核心原因。

错误原因解析 #

• "Variable "x" does not seem to be initialized"警告：你在声明静态数组array[1..x]时，变量x还没有被赋值，编译器无法确定它的初始值。
• "Can't evaluate constant expression"错误：静态数组的上下界必须是编译期常量（比如固定数字、const定义的常量），而用户输入的x是运行时才会确定的数值，编译器在编译阶段无法计算出它的值，因此报错。

解决方案 #

方案1：使用动态数组（推荐，适用于Delphi、Free Pascal等现代编译器） #

动态数组的长度可以在运行时动态设置，是处理这种场景的最优方式：

type
  recordPembeli = record
    // 定义你的记录字段，例如：
    Nama: string;
    NomorHP: string;
  end;
  // 声明动态数组类型
  TDataPembelian = array of recordPembeli;

var
  dataPembelian: TDataPembelian;
  x: Integer;
  i: Integer;
begin
  writeln('输入购买者数量：');
  readln(x);
  // 动态设置数组长度
  SetLength(dataPembelian, x);
  
  // 示例：给数组元素赋值
  for i := 0 to x-1 do
  begin
    writeln('请输入第', i+1, '位购买者的姓名：');
    readln(dataPembelian[i].Nama);
    writeln('请输入第', i+1, '位购买者的手机号：');
    readln(dataPembelian[i].NomorHP);
  end;
end.

注意：动态数组的下标默认从0开始，如果你习惯从1开始，可以在赋值时做偏移。

方案2：指针+动态内存分配（适用于Turbo Pascal等老式编译器） #

如果你的编译器不支持动态数组，可以通过指针手动分配内存：

type
  recordPembeli = record
    Nama: string[50];
    NomorHP: string[15];
  end;
  // 定义指向数组的指针类型
  PArrayPembeli = ^array[1..1] of recordPembeli;

var
  dataPembelian: PArrayPembeli;
  x: Integer;
  i: Integer;
begin
  writeln('输入购买者数量：');
  readln(x);
  // 分配内存：x乘以单个记录的字节数
  GetMem(dataPembelian, x * SizeOf(recordPembeli));
  
  // 访问数组元素：通过指针的^属性
  for i := 1 to x do
  begin
    writeln('请输入第', i, '位购买者的姓名：');
    readln(dataPembelian^[i].Nama);
    writeln('请输入第', i, '位购买者的手机号：');
    readln(dataPembelian^[i].NomorHP);
  end;
  
  // 必须手动释放内存，避免内存泄漏
  FreeMem(dataPembelian);
end.

内容的提问来源于stack exchange，提问作者Muhammad Bayu Wicaksana