Как обрабатывать ошибку "list index out of bounds" при проверке выбранного элемента в ListBox на Delphi

Delphi , Компоненты и Классы , Списки

При работе с компонентом ListBox в среде разработки Delphi, важно помнить о том, что индексация элементов начинается с нуля. Это означает, что если пользователь не выбрал ни одного элемента, свойство ItemIndex будет равно -1. Попытка доступа к элементу списка с таким индексом приведет к ошибке "list index out of bounds".

Давайте рассмотрим пример кода, который демонстрирует правильный способ проверки выбранного элемента в ListBox перед попыткой его использования:

procedure TfrMain.Label15Click(Sender: TObject);
var
  saveDialog: TSaveDialog;
  FileContents: TStringStream;
  Selected: String;
begin
  saveDialog := TSaveDialog.Create(nil);
  try
    saveDialog.Title := 'Сохранение текстового файла';
    saveDialog.InitialDir := GetCurrentDir;
    saveDialog.Filter := 'Текстовые файлы (*.txt)|*.txt';
    saveDialog.DefaultExt := 'txt';
    saveDialog.FilterIndex := 1;

    // Проверяем, выбран ли элемент в ListBox
    if ListBox1.ItemIndex <> -1 then
    begin
      Selected := ListBox1.Items.Objects[ListBox1.ItemIndex].ToString;
      if saveDialog.Execute then
      begin
        // Здесь может быть код для работы с выбранным текстом
        // Например, сохранение в файл
        FileContents := TStringStream.Create(Selected, TEncoding.UTF8);
        FileContents.SaveToFile(saveDialog.Filename);
        ShowMessage('Файл сохранен: ' + saveDialog.Filename);
      end;
    end
    else
      ShowMessage('Не выбран ни один элемент в списке.');
  finally
    saveDialog.Free;
  end;
end;

В этом коде перед тем, как выполнить операцию сохранения, мы проверяем, не равен ли ItemIndex компонента ListBox значению -1. Если элемент не выбран, отображаем соответствующее сообщение. Если элемент выбран, получаем доступ к тексту элемента и выполняем необходимые операции, например, сохранение текста в файл.

Пример использования Objects[ListBox1.ItemIndex].ToString предполагает, что элементы ListBox содержат объекты, которые можно преобразовать в строки. Это может быть полезно, если элементы ListBox содержат объекты различных типов, и вы хотите универсально их обработать.

Таким образом, всегда проверяйте, выбран ли элемент в ListBox, прежде чем пытаться работать с ним, чтобы избежать ошибки "list index out of bounds".

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

Обработка ошибки 'list index out of bounds' при работе с ListBox в Delphi заключается в проверке, что элемент действительно выбран, прежде чем обращаться к нему.

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

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

:: Главная :: Списки ::