"Решение проблемы с TList в Delphi: замена чисел, делящихся на 3, на 0"

Delphi , Синтаксис , Циклы

Решение проблемы с TList в Delphi: замена чисел, делящихся на 3, на 0

При работе с TList в Delphi может возникнуть проблема, когда необходимо изменить значения в списке во время его обхода с помощью цикла for-in. В этом случае может возникнуть ошибка, так как попытка изменить значение в цикле for-in приведет к изменению только переменной цикла, а не значения в списке.

Для решения этой проблемы можно использовать цикл for, где индекс элемента списка является переменной цикла. В этом случае можно изменить значение элемента списка, используя индекс в качестве индекса массива.

Пример кода:

uses
  System.Generics.Collections;

procedure ReplaceDivisibleByThreeWithZero(List: TList<Integer>);
var
  i: Integer;
begin
  for i := 0 to List.Count - 1 do
  begin
    if (List[i] mod 3) = 0 then
      List[i] := 0;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  List: TList<Integer>;
  i: Integer;
begin
  List := TList<Integer>.Create;
  try
    // Заполнение списка случайными числами
    for i := 0 to 100 do
      List.Add(Random(1000));

    // Замена чисел, делящихся на 3, на 0
    ReplaceDivisibleByThreeWithZero(List);

    // Вывод результата
    for i := 0 to List.Count - 1 do
      Memo1.Lines.Add(IntToStr(List[i]));
  finally
    FreeAndNil(List);
  end;
end;

В данном примере создается список из 100 случайных чисел от 0 до 999. В функции ReplaceDivisibleByThreeWithZero() производится замена чисел, делящихся на 3, на 0. После этого список выводится в Memo1.

Примечание: При использовании цикла for для обхода списка, необходимо учитывать, что после удаления элементов из списка, индексы остальных элементов могут измениться. В этом случае можно использовать цикл for, идущий в обратном направлении, чтобы избежать сбоев в цикле.

Создано по материалам из источника по ссылке.

Контекст: В данном примере рассматривается решение проблемы с изменением значений в TList в Delphi во время обхода списка с помощью цикла for-in, а именно замена чисел, делящихся на 3, на 0.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Циклы ::