Обработка выделения в TTreeView: избегаем ошибок индексации в Delphi

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

Вопрос пользователя связан с обработкой данных, полученных из базы данных, и их выводом в компонент TMemo через TTreeView. При выполнении кода возникает ошибка доступа к памяти (Access Violation Error), которая связана с неправильной индексацией элементов TTreeView. Давайте разберемся в этой проблеме и найдем решение.

Проблема и ее описание

Пользователь работает с TTreeView, который заполняется данными из таблицы базы данных. Он пытается получить значение из другой колонки таблицы на основе выделенного элемента в TTreeView и добавить это значение в TMemo. При выполнении кода возникает ошибка доступа к памяти, которую отлаживатель Delphi определяет на строке:

if TreeView1.Items[i].Checked then

Описание кода, вызывающего ошибку

Код, вызывающий ошибку, следующий:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  test: string;
begin
  for i := 0 to TreeView1.Items.Count do
  begin
    if TreeView1.Items[i].Checked then
    begin
      test := TreeView1.Items.Item[i].Text;
      try
        Query1.SQL.Text := 'SELECT column2 FROM someTable WHERE column1=''' + test + '''';
        Query1.Open;
      finally
        Memo1.Lines.Add(Query1.FieldByName('column2').Value);
      end;
      Query1.Close;
    end;
  end;
  for i := 0 to TreeView1.Items.Count do TreeView1.Items.Item[i].Checked := false;
end;

Подсказка к решению из комментариев

Проблема заключается в том, что счетчик элементов в коллекциях в Delphi начинается с нуля, тогда как многие разработчики интуитивно ожидают, что он начинается с единицы. В результате, после выполнения цикла, переменная i достигает значения, равного TreeView1.Items.Count, что приводит к выходу за пределы массива и, как следствие, к ошибке доступа к памяти.

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

Чтобы исправить ситуацию, необходимо изменить цикл, в котором происходит проверка элементов TTreeView, на следующий:

for i := 0 to TreeView1.Items.Count - 1 do

Это изменение нужно применить в двух местах кода, где производится индексация элементов.

Альтернативные способы устранения проблемы

• Использование свойства OwnerData элементов TTreeView для хранения дополнительных данных, которые не зависят от индексации.
• Проверка условий выхода за пределы массива в отладочном режиме, используя флаги диапазона/переполнения в отладчике.

Заключение

Важно помнить, что индексация в коллекциях в Delphi начинается с нуля. Это может быть неочевидно для разработчиков, привыкших к другим языкам программирования, где индексация начинается с единицы. Следует всегда проверять границы индексации, чтобы избежать ошибок доступа к памяти, особенно при работе с компонентами, такими как TTreeView.

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

Вопрос связан с устранением ошибки индексации при работе с компонентом `TTreeView` в Delphi, возникающей из-за неправильного использования счетчика в цикле.

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

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

:: Главная :: TTreeView ::