Delphi中按布尔参数控制循环方向，如何避免代码重复？

我编写了一个接收Boolean类型参数的函数，该函数中两段逻辑仅循环方向不同，但循环内执行的代码完全相同，当前实现如下：

If True then
begin
 for I:= 0 to Count do
 begin
   Execute a chunk of code
 end;
end
else
begin
  for Count downto 0 do
  begin
    Execute same chunk of code
  end;
end;

注：代码中的If True then应该是判断传入的Boolean参数，比如假设参数名为IsForward（表示是否正向循环）。

请问如何更优雅地编写这段代码，避免循环内代码重复？我刚接触编程，若术语使用有误请见谅，此前搜索未找到相关解决方案。

解决方案 #

方法1：将循环内代码封装为独立子过程/函数

这是最适合新手理解的代码复用方式，把重复的代码抽出来做成一个单独的小过程，主逻辑只负责控制循环方向，然后调用这个子过程即可：

// 封装循环内的重复代码为子过程
procedure DoWork(I: Integer);
begin
  // 这里替换成你实际需要执行的代码
  // 例如：Writeln('处理索引: ', I);
end;

// 主函数，接收控制循环方向的参数IsForward
procedure ProcessItems(IsForward: Boolean; Count: Integer);
var
  I: Integer;
begin
  if IsForward then
  begin
    for I := 0 to Count do
      DoWork(I); // 正向循环时调用子过程
  end
  else
  begin
    for I := Count downto 0 do
      DoWork(I); // 反向循环时调用子过程
  end;
end;

优点：代码结构清晰，职责分离，后续修改循环内的逻辑时，只需要修改DoWork过程，不需要改动两处循环代码，降低出错概率。

方法2：通过步长控制统一循环结构

如果不想额外定义子过程，可以通过设置循环的起始值、结束值和步长，把两个for循环合并为一个while循环，同样避免代码重复：

procedure ProcessItems(IsForward: Boolean; Count: Integer);
var
  I, Start, EndVal, Step: Integer;
begin
  // 根据循环方向初始化参数
  if IsForward then
  begin
    Start := 0;
    EndVal := Count;
    Step := 1;
  end
  else
  begin
    Start := Count;
    EndVal := 0;
    Step := -1;
  end;

  // 统一的循环逻辑
  I := Start;
  while (IsForward and (I <= EndVal)) or (not IsForward and (I >= EndVal)) do
  begin
    // 这里替换成你实际需要执行的代码
    // 例如：Writeln('处理索引: ', I);
    Inc(I, Step); // 按步长更新循环变量
  end;
end;

优点：不需要额外的子过程，把循环逻辑统一起来，适合理解循环的运行原理。

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