如何在Pascal中循环处理记录结构内的tab_A至tab_X变量？

标准Pascal并不支持通过字符/字符串动态生成成员名的方式访问记录字段，也就是你示例中tab_i这种写法无法直接实现。不过可以通过以下几种替代方案达到批量填充的目的：

方案1：重构记录为数组的数组（推荐） #

最符合Pascal静态类型设计的方式是把分散的tab_A到tab_Z整合成一个以字符为索引的数组，这样可以直接通过循环遍历：

// 先定义你的array_x类型
Type
  array_x = array[0..N] of Integer; // 替换成你的实际数组定义
  TMyRecord = record
    tabs: array['A'..'Z'] of array_x; // 用数组统一存储所有tab_*
  end;

var
  myRec: TMyRecord;
  c: Char;
begin
  // 直接遍历字符索引批量调用fillup
  for c := 'A' to 'Z' do
    fillup(myRec.tabs[c]);
end;

这种方式代码清晰、类型安全，且性能最优，是优先推荐的解决方案。

方案2：指针偏移遍历（适用于无法重构的旧代码） #

如果因为历史原因无法修改记录结构，且所有tab_*成员都是同一类型（array_x），可以利用指针偏移来遍历内存中的连续成员：

Type
  array_x = array[0..N] of Integer; // 你的array_x定义
  TMyRecord = record
    tab_A: array_x;
    tab_B: array_x;
    // ... 依次定义到tab_Z
  end;
  PArrayX = ^array_x; // 定义array_x类型的指针

var
  myRec: TMyRecord;
  p: PArrayX;
  i: Integer;
begin
  p := @myRec.tab_A; // 指针指向第一个成员tab_A
  // 遍历26个成员（A到Z）
  for i := 0 to 25 do
  begin
    fillup(p^); // 填充当前指针指向的数组
    Inc(p); // 指针移动到下一个array_x大小的内存位置
  end;
end;

⚠️ 注意：这种方式依赖编译器的内存布局，要求成员之间没有额外的内存对齐填充。不同编译器或编译选项可能导致行为异常，仅在无法重构时使用。

方案3：利用RTTI（运行时类型信息） #

部分Pascal编译器（如Delphi、开启RTTI选项的Free Pascal）支持运行时类型信息，可以通过反射遍历记录字段：

uses
  System.Rtti; // Delphi下的RTTI单元，Free Pascal需对应调整

Type
  array_x = array[0..N] of Integer;
  TMyRecord = record
    tab_A: array_x;
    tab_B: array_x;
    // ... 到tab_Z
  end;

var
  myRec: TMyRecord;
  ctx: TRttiContext;
  field: TRttiField;
begin
  ctx := TRttiContext.Create;
  // 遍历记录的所有字段
  for field in ctx.GetType(TypeInfo(TMyRecord)).GetFields do
  begin
    // 只处理类型为array_x的字段
    if field.FieldType.Handle = TypeInfo(array_x) then
      fillup(field.GetValue(@myRec).AsType<array_x>);
  end;
  ctx.Free;
end;

这种方式无需修改记录结构，但依赖编译器的RTTI支持，且性能比前两种方案差，适合需要灵活处理字段的场景。

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