Как исправить ошибку "List index out of bounds (1)" в Delphi XE7 с использованием MySQL и FDQuery для CheckBoxList

Delphi , Базы данных , SQL

Ошибка "List index out of bounds (1)" в Delphi XE7 может возникать по разным причинам, но чаще всего она связана с неправильным обращением к элементам коллекции, например, списка или массива. В контексте использования CheckBoxList в сочетании с MySQL и компонентами FDConnection и FDQuery, такая ошибка может быть вызвана некорректным индексированием элементов списка.

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

Пользователь столкнулся с ошибкой "List index out of bounds (1)" при попытке выборки информации из базы данных. Ошибка возникает в процедуре GetAppCost, которая предназначена для расчета общей стоимости услуг, выбранных в CheckBoxList. Проблема заключается в том, что цикл, используемый для обработки элементов CheckBoxList, может выйти за пределы допустимого диапазона индексов.

Пример кода, вызывающего ошибку

procedure TAppointmentForm.GetAppCost;
var
  Count: Integer;
begin
  for Count := 0 to (Count1-1) do
  begin
    if TreatmentCheckListBox.State[Count] = cbChecked then
    begin
      Treatment := TreatmentCheckListBox.Items.Strings[Count];
      GetTreatPrice;
      AppCost := AppCost + TreatPrice;
    end
    else
      AppCost := AppCost; // Эта строка является избыточной и может быть удалена
  end;
end;

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

Чтобы исправить ошибку, необходимо использовать свойство Count компонента Items CheckBoxList для определения количества элементов в списке, а не глобальную переменную Count1, которая может быть неактуальной. Также рекомендуется использовать свойство Checked CheckBoxList для доступа к элементам, что упрощает код и избавляет от необходимости обращаться к свойству Strings.

Вот исправленный пример кода:

procedure TAppointmentForm.GetAppCost;
var
  Idx: Integer;
begin
  AppCost := 0;
  for Idx := 0 to TreatmentCheckListBox.Items.Count - 1 do
  begin
    if TreatmentCheckListBox.Checked[Idx] then
    begin
      Treatment := TreatmentCheckListBox.Items[Idx];
      GetTreatPrice(Treatment);
      AppCost := AppCost + TreatPrice;
    end;
  end;
end;

Также важно использовать параметризованные запросы для предотвращения SQL-инъекций и улучшения производительности. Пример процедуры GetTreatPrice с параметризованным запросом:

procedure TAppointmentForm.GetTreatPrice(const TreatmentName: String): Integer;
begin
  TreatPriceQuery.SQL.Text := 'Select Cost from Treatment where TreatName = :TreatName';
  TreatPriceQuery.ParamByName('TreatName').AsString := TreatmentName;
  TreatPriceQuery.Open;
  Result := TreatPriceQuery.FieldByName('Cost').AsInteger;
end;

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

Также стоит отметить, что глобальные переменные для передачи значений между процедурами не являются лучшей практикой. Лучше использовать параметры и возвращаемые значения функций.

Заключение

Исправление ошибки "List index out of bounds (1)" заключается в корректном использовании свойств CheckBoxList и применении параметризованных запросов. Это улучшит читаемость кода, его безопасность и производительность.

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

Пользователь сталкивается с ошибкой 'List index out of bounds (1)' в программе на Delphi XE7 при работе с базой данных MySQL через FDQuery и CheckBoxList, что указывает на неверное обращение к элементам списка в цикле.

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

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

:: Главная :: SQL ::