如何在Delphi中实现字符串批量替换，解决循环覆盖历史替换结果问题

• 每次执行L循环的替换操作时，都是基于最原始的sEncryptInput字符串做处理，不会保留上一轮替换的结果，所以最后只能拿到最后一次L=25的替换结果
• 外层K循环的遍历范围存在越界风险，TStringList的索引是0基的，最大索引值为Count-1，直接遍历到Count会触发下标越界异常

每次替换都基于上一轮替换后的结果操作，你可以先把sLine初始化为输入字符串的大写格式，后续每轮替换都直接修改sLine即可。

修复后代码如下：

var
  sEncryptInput, sLine : string;
  K, L : integer;
begin
  redOutEncrypt.Clear;

  // 遍历输入的每一行，注意范围是0到Count-1，避免越界
  for K := 0 to redInEncrypt.Lines.Count - 1 do
    begin
      sEncryptInput := redInEncrypt.Lines[K];
      // 先初始化sLine为输入字符串的大写格式
      sLine := UpperCase(sEncryptInput);

      for L := 0 to 25 do
        begin
          // 直接在上一轮替换后的sLine基础上做本次替换
          sLine := StringReplace(sLine, UpperCase(arrPlainAlph[L]), arrOffset[L], [rfReplaceAll, rfIgnoreCase]);
        end;

      redOutEncrypt.Lines.Add(sLine);
    end;
end;

如果你的替换规则存在A替换为B、B又替换为C的连锁替换逻辑，需要确认这个执行顺序是否符合你的业务预期。如果不需要连锁替换，建议逐字符遍历替换而非用StringReplace循环处理，避免出现非预期的多次替换问题。

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