Altium Designer脚本中Pos()函数返回多值及循环执行异常问题求助

咱们先拆解你遇到的问题，其实核心都是Pascal语法和逻辑层面的，和Altium Designer的环境关系不大，一步步来解决：

1. 循环提前终止的根本原因：缺少begin...end包裹代码块 #

在Altium用的Delphi Pascal语法里，For循环默认只执行紧跟在循环语句后的第一行代码。你的代码里没有用begin...end把循环内的多行代码包起来，导致：

• 循环只反复执行A := Pos('gtl', SL.Strings[i]);这一行，当循环完成所有迭代后，i的值会自动变成SL.Count（Pascal的For循环结束后，循环变量会等于终值+1）
• 之后才会执行B := Pos('gbl', SL.Strings[i]);，这时候i已经超出了StringList的索引范围（StringList的有效索引是0到SL.Count-1），直接触发越界错误，让脚本提前终止，看起来像是循环“提前结束”

修复代码结构： #

给循环体和If语句都加上begin...end，把所有需要在代码块内执行的逻辑包起来：

Procedure Delete;
Var
  SL : TStringList;
  i, A, B : Integer;
  PCBFile : String;
Begin
  PCBFile := // 你的文本文件完整路径
  SL := TStringList.Create;
  SL.LoadFromFile(PCBFile);
  For i := 1 To (SL.Count - 1) Do // 跳过第一行
  begin // 新增：标记循环体开始
    A := Pos('gtl', SL.Strings[i]);
    B := Pos('gbl', SL.Strings[i]); 
    If (A = 0) And (B = 0) Then 
    begin // 新增：标记If语句体开始
      // 这里注意：你的变量逻辑可能有问题，后面再讲
      ChangeFileExt(PCBFile, '.TX');
      PCBFile := PCBFile + FloatToStr(i-2);
      DeleteFile(PCBFile);
    end; // 结束If语句体
  end; // 结束循环体
  SL.Free;
End;

另外你的If语句后面也有多行代码，同样需要begin...end，否则只有第一行ChangeFileExt会受条件控制，后面的代码不管条件是否满足都会执行，这肯定不是你想要的。

2. Pos()函数的“多值返回”误解 #

你提到Pos()会返回StringList每一行的匹配结果，其实这是正常现象——因为你在循环里逐行调用Pos()，每一次调用都是针对当前行的字符串，返回的是该行中目标子串的起始位置（0表示未找到）。你看到的“多值”只是循环逐行执行的输出，不是Pos()本身返回多个值。

如果你想实现“只要当前行既不包含'gtl'也不包含'gbl'，就执行删除逻辑”，现在的(A=0) and (B=0)判断是完全正确的，只要循环体修复后，这个逻辑就能正常逐行执行。

3. 额外的逻辑优化建议 #

看你的代码，PCBFile是你加载的文本文件的路径，但你在循环里修改它的扩展名并添加后缀后删除——这意味着你在删除的是基于文本文件路径生成的文件，而不是文本文件里记录的目标文件。这大概率不符合你的需求，你应该从SL.Strings[i]中提取需要删除的文件名，比如：

// 假设文本文件每一行是目标文件的名称或完整路径
var TargetFile: String;
TargetFile := SL.Strings[i]; // 从当前行获取目标文件路径
If (Pos('gtl', TargetFile) = 0) And (Pos('gbl', TargetFile) = 0) Then
begin
  // 根据需求删除对应文件，比如直接删除原文件：
  DeleteFile(TargetFile); 
  // 或者删除指定后缀的衍生文件：
  // DeleteFile(ChangeFileExt(TargetFile, '.TX') + FloatToStr(i-2));
end;

你可以先把删除逻辑注释掉，换成ShowInfo验证每一步的结果，确认逻辑正确后再打开删除：

ShowInfo(Format('行%d: 检测到需删除文件：%s', [i, TargetFile]));

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