在循环 TStringList 项时是否有避免越界索引错误的良好实践？

:)

首先，我的代码

procedure TForm1.Button3Click(Sender: TObject);
var tempId,i:integer;
begin
tempId:=strtoint(edit5.Text);
plik:=TStringList.Create;
plik.LoadFromFile('.\klienci\'+linia_klient[id+1]+'.txt');
if (plik.Count=1) then
  begin
  label6.Caption:='then';
    if (tempId=StrToInt(plik[0])) then
      begin
      Label6.Caption:='Zwrócono';
      plik.Delete(0);
    end
  end
else
for i:=0 to plik.Count-2 do
  begin
    if (tempId=StrToInt(plik[i])) then
    begin
      Label6.Caption:='Zwrócono';
      plik.Delete(i);
    end;
  end;
plik.SaveToFile('.\klienci\'+linia_klient[id+1]+'.txt');
plik.Free;
end;

• When for i:=0 to plik.Count-2 do我可以删除任何元素，但不能 最后的。
• When for i:=0 to plik.Count-1 do我可以删除任何元素而无需 但从头到尾。因为否则列表索引越界.

发生什么事了？如何安全搜索并从 TStringList 中删除元素？

从列表中删除您想要使用的项目时downto循环，即

for i := plik.Count-1 downto 0 do
  begin
    if (tempId=StrToInt(plik[i])) then
    begin
      Label6.Caption:='Zwrócono';
      plik.Delete(i);
    end;
  end;

这确保了如果您删除项目，当您从列表末尾向下移动到列表开头时，循环索引保持有效。