Устранение лишних пустых элементов в TListView при заполнении из TFDQuery в Delphi 10.4.2

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

При работе с компонентами в Delphi, особенно с такими, как TListView и TFDQuery, разработчики иногда сталкиваются с неожиданными проблемами, такими как появление пустых элементов в списке. В данной статье мы рассмотрим, как избежать появления таких элементов при заполнении TListView данными из TFDQuery без использования привязки данных.

Пример возникновения проблемы

Рассмотрим типичную ситуацию, когда разработчик использует цикл для чтения данных из базы данных и добавления их в TListView. Код может выглядеть следующим образом:

DM.Qdomains.Connection := DM.Conn;
DM.Qdomains.SQL.Text := 'SELECT * FROM domains';
DM.Qdomains.Active := True;
DM.Qdomains.First;
try
  while not DM.Qdomains.Eof do
  begin
    with DomainsListView.Items.Add do // Ошибка: двойное вызов Add
    begin
      DomainsListView.Items.Add.Data['domain'] := DM.Qdomains.FieldByName('domain').AsString;
    end;
    DM.Qdomains.Next;
  end;
finally
  DM.Qdomains.Free;
end;

В этом коде присутствует ошибка, заключающаяся в двойном вызове метода Add для каждого элемента списка, что приводит к появлению лишних пустых элементов в TListView.

Решение проблемы

Чтобы устранить появление пустых элементов, достаточно убрать лишний вызов метода Add. Правильный код для заполнения TListView будет выглядеть так:

DM.Qdomains.Connection := DM.Conn;
DM.Qdomains.SQL.Text := 'SELECT * FROM domains';
DM.Qdomains.Active := True;
DM.Qdomains.First;
try
  while not DM.Qdomains.Eof do
  begin
    DomainsListView.Items.Add.Data['domain'] := DM.Qdomains.FieldByName('domain').AsString;
    DM.Qdomains.Next;
  end;
finally
  DM.Qdomains.Free;
end;

Альтернативные подходы

Также стоит рассмотреть альтернативные способы заполнения TListView, например, использование Livebindings. Это может упростить процесс и избавить от необходимости писать дополнительный код. Однако, для использования Livebindings, необходимо быть знакомым с этим механизмом.

Пример использования Livebindings

Для тех, кто хочет узнать больше о Livebindings, рекомендуется обратиться к специализированным ресурсам, таким как форум Delphi на сайте developpez.net, где можно найти подробные руководства и примеры использования Livebindings.

В заключение, при работе с TListView и TFDQuery в Delphi 10.4.2, важно внимательно следить за тем, как вы добавляете элементы в список, чтобы избежать появления лишних пустых строк. Использование Livebindings может значительно упростить этот процесс, но требует дополнительного изучения.

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

Устранение проблемы появления лишних пустых элементов в компоненте TListView при заполнении данными из TFDQuery в среде разработки Delphi 10.4.2.

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

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

:: Главная :: TListView ::