Delphi TStringList Insertion Sort仅可排序4个索引元素问题排查

定位到的两个核心问题 #

• 循环边界判断错误，截断了有效排序范围
  TStringList的索引从0起始，你代码中while循环的判断条件写为(Position > 0)，当待插入元素左移到Position = 0时，循环会直接终止，根本不会对索引0位置的元素做大小对比和位移。这种截断式的判断，会让排序逻辑永远漏过列表最开头的位置，最终表现为仅靠前段的少量索引能完成排序，和你描述的“仅能对4个索引的整数完成排序”的现象完全匹配。
  正确的边界条件应该是Position >= 0，保证有序段的最开头位置也能参与判断。
• 比较逻辑类型错误，用字典序代替整数数值比较
  代码中直接拿TStringList存储的字符串值做大小对比，这种按ASCII逐字符的字典序判断，和整数的数值大小逻辑完全不一致：比如字符串"9"会被判定为比"100"更大，即使修正了索引边界，最终排序结果也不符合整数升序的要求。比较时需要先把字符串转换为整数类型，再做数值大小判断。

修正后的参考实现 #

可直接替换原排序逻辑的代码：

var
  i, Position, n: integer;
  ValueStr: string;
  CurrentValue, CompareValue: integer;
begin
  n := Items.Count;
  // 从索引1开始遍历，默认索引0的元素属于初始有序段
  for i := 1 to n - 1 do
  begin
    ValueStr := Items[i];
    CurrentValue := StrToInt(ValueStr);
    Position := i - 1;
    // 覆盖到索引0的边界判断 + 整数数值比较
    while (Position >= 0) and (StrToInt(Items[Position]) > CurrentValue) do
    begin
      Items[Position + 1] := Items[Position];
      Position := Position - 1;
    end;
    Items[Position + 1] := ValueStr;
  end;
end;

优化提示 #

• 针对你要处理的5000行整数场景，反复调用StrToInt做临时转换会产生不必要的性能损耗，更高效的方案是在读取文本文件时，就把所有行的整数存到独立的整型动态数组中，排序全程操作整型数组，完成排序后再把结果写回TStringList，运行效率会高很多。
• 你之前实现的选择排序能正常运行，通常是因为写选择排序的比较逻辑时已经做了整数类型转换，且循环边界覆盖了从0到末尾的全量索引，没有触发这两类问题。

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