求助：13个月数组表头生成代码异常，需生成Jan(LY)至Jan(TY)表头

我来帮你梳理下现有代码里的核心问题，再给出完全符合需求的修正方案：

原代码的关键错误点 #

1. 月份数组Harray的计算逻辑完全偏离需求 #

你需要的是**去年1月到今年1月（Jan(LY) → Jan(TY)）**的13个连续月份，但原代码的basemonth分支逻辑混乱：

• 当basemonth-12 <=0时，Basemonth-I+13的计算会生成错误的月份值（比如basemonth=1时，I=12会得到2，对应去年2月，而非你需要的去年1月）
• 没有区分「去年月份」和「今年月份」，只是试图用数字13来标记LY，完全误解了“月份名+年份标识”的需求

2. Monthcalc函数设计错误 #

函数把数字13直接映射成LY，但你需要的是Jan(LY)、Feb(LY)这种「月份名+年份标识」的组合，这个函数的输出格式完全不符合预期。

3. 硬编码13个Heading变量（冗余易错） #

手动给13个Heading变量赋值的写法既冗余又容易出错，用循环处理会更简洁。

修正后的完整代码 #

下面是完全符合你需求的代码，生成从Jan(LY)到Jan(TY)的13个表头：

// Headings
var
  I: Integer;
begin
  // 生成从去年1月到今年1月的13个月份标识：负数=去年，正数=今年
  for I := 1 to 13 do
  begin
    if I <= 12 then
      Harray[I] := -I; // 前12个是去年的1-12月（用负数标记）
    else
      Harray[I] := 1;  // 第13个是今年的1月（正数标记）
  end;

  // 循环赋值13个表头（替代硬编码）
  for I := 1 to 13 do
  begin
    case I of
      1: Heading1 := Monthcalc(Harray[I]);
      2: Heading2 := Monthcalc(Harray[I]);
      3: Heading3 := Monthcalc(Harray[I]);
      4: Heading4 := Monthcalc(Harray[I]);
      5: Heading5 := Monthcalc(Harray[I]);
      6: Heading6 := Monthcalc(Harray[I]);
      7: Heading7 := Monthcalc(Harray[I]);
      8: Heading8 := Monthcalc(Harray[I]);
      9: Heading9 := Monthcalc(Harray[I]);
      10: Heading10 := Monthcalc(Harray[I]);
      11: Heading11 := Monthcalc(Harray[I]);
      12: Heading12 := Monthcalc(Harray[I]);
      13: Heading13 := Monthcalc(Harray[I]);
    end;
  end;
end;

Function Monthcalc(Amonth: Integer): String;
const
  // 定义标准月份名常量数组
  MonthNames: array[1..12] of string = ('Jan', 'Feb', 'Mar', 'Apr', 'May', 'Jun', 
                                        'Jul', 'Aug', 'Sep', 'Oct', 'Nov', 'Dec');
begin
  if Amonth < 0 then
    // 负数=去年月份，拼接(LY)
    Result := MonthNames[Abs(Amonth)] + '(LY)'
  else
    // 正数=今年月份，拼接(TY)
    Result := MonthNames[Amonth] + '(TY)';
end;

关键修正说明 #

1. 清晰的年份标记逻辑：用负数表示去年的月份，正数表示今年的月份，在Monthcalc里可以直观区分并生成对应格式的表头。
2. 重写Monthcalc函数：使用常量数组存储月份名，根据输入值的正负自动拼接(LY)或(TY)，完全符合你要的表头格式。
3. 简化循环逻辑：从1到13的顺序循环直接对应「去年1月→今年1月」的顺序，逻辑清晰易懂。

扩展：支持动态当前月份（可选） #

如果你的需求不是固定从Jan(LY)到Jan(TY)，而是从去年当前月份到今年当前月份（比如当前是5月，生成May(LY)→May(TY)），可以调整Harray的生成逻辑：

var
  I: Integer;
  basemonth: Integer; // 假设这是当前月份，比如5
begin
  for I := 0 to 12 do
  begin
    var MonthNum := basemonth - I;
    if MonthNum <= 0 then
      Harray[I+1] := -(MonthNum + 12) // 负数标记去年
    else
      Harray[I+1] := MonthNum; // 正数标记今年
  end;
  // 后续赋值Heading的逻辑同上
end;

当basemonth=1时，这段代码就会生成你需要的Jan(LY)→Jan(TY)序列。

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