1

При удалении всех строк где есть слово "Del" сообщение об ошибке: List index out of bounds (2)

var
  L, K: TStringList;
  i: integer;
begin
  L := TStringList.Create;
  L.LoadFromFile(ExtractFilePath(Application.ExeName) + 'f.txt');
  for i := 0 to L.Count - 1 do
  begin
    if pos('Del', L.Strings[i]) > 0 then
      L.delete(i);
    L.SaveToFile(ExtractFilePath(Application.ExeName) + 'f.txt');
  end;
  L.Free;
end;

1 ответ 1

2

Вы "рубите сук, на котором сидите" или "выдергиваете коврик у себя из-под ног".

for i := L.Count - 1 downto 0 do

И вынесите L.SaveToFile из цикла.

1
  • Благодарен. Работает. Убрал и с цикла тоже.
    – Gleb
    22 июл 2020 в 19:47

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge that you have read and understand our privacy policy and code of conduct.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.