Как избежать ошибки "List Index Out Of Bounds" в Delphi при работе с циклами: анализ проблемы в функции TNetwork.FeedForward

Delphi , Синтаксис , Ошибки и Исключения

Вопрос, поднятый в оригинальном запросе, заключается в ошибке "List Index Out Of Bounds(4)", возникающей в функции TNetwork.FeedForward. Ошибка связана с циклом for, который, как оказалось, пытается обратиться к элементу с индексом 4, когда должен был закончить свою работу после индекса 3. Это происходит из-за того, что в циклах для работы с динамическими массивами или списками необходимо использовать индексы от 0 до Count - 1, чтобы избежать выхода за пределы массива.

Объяснение проблемы

Ошибка "List Index Out Of Bounds" обычно возникает, когда происходит некорректный доступ к элементу коллекции, например, TList или TStringList. В случае с массивами, если включена проверка диапазонов (range checking), то такой доступ приведёт к срабатыванию runtime-ошибки.

Подтверждённый ответ

Чтобы избежать ошибки "List Index Out Of Bounds" в Delphi при работе с циклами, необходимо всегда проверять, что индекс не выходит за пределы массива или списка. В случае использования динамических массивов, следует использовать конструкцию цикла вида:

for I := Low(YourDynamicArray) to High(YourDynamicArray) do
begin
  // Ваш код
end;

Это гарантирует, что индекс будет в пределах допустимых значений.

Альтернативный ответ

Иногда полезно разделять индексацию и вызов метода, чтобы упростить отладку, особенно если ошибка происходит внутри метода:

var
  H: THiddenNeuron;
begin
  for I := Low(Hidden) to High(Hidden) do
  begin
    H := Hidden[I];
    H.CalcOutput;
  end;
end;

Это позволяет явно видеть, что ошибка связана либо с индексацией, либо с вызовом метода CalcOutput.

Примеры кода

Вот пример функции TNetwork.FeedForward, исправленной с учётом вышеизложенного:

function TNetwork.FeedForward(InputVals : array of Real) : Real;
var
  I: Integer;
begin
  for I := Low(InputVals) to High(InputVals) do
  begin
    Input[I].Input(InputVals[I]);
  end;

  for I := Low(Hidden) to High(Hidden) do
  begin
    Hidden[I].CalcOutput;
  end;

  Output.CalcOutput;

  Result := Output.GetOutput;
end;

Заключение

При работе с циклами в Delphi важно помнить о правилах индексации и использовать проверенные подходы для избежания ошибок выхода за пределы массива. Умение правильно обрабатывать ошибки и отлаживать код — ключевой навык для разработчика.

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

Вопрос связан с устранением ошибки 'Index Out Of Bounds' в функции `FeedForward` класса `TNetwork`, где цикл `for` неправильно обращается к элементам массива, пытаясь получить доступ к индексу 4 вместо максимального доступного индекса

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

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

:: Главная :: Ошибки и Исключения ::