Решение проблемы отображения данных в ListView в Delphi: использование SubItems и ViewStyle vsReport

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

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

Проблема

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

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

SQLQuery1.SQL.Text := 'SELECT * FROM users where user_age="'+age+'"';
SQLQuery1.Open;
rec := SQLQuery1.RecordCount;
...
ListView1.Visible := false;
if rec > 0 then
begin
    while(not SQLQuery1.EOF) do
    begin
        ListView1.Visible := true;
        ListView1.AddItem('Full name: '+SQLQuery1['fullname'], Self);
        ListView1.AddItem('Country: '+SQLQuery1['cntry'], Self);
        SQLQuery1.Next;
    end;
end;

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

Чтобы решить эту проблему, необходимо использовать коллекцию SubItems для каждого элемента ListView. Также важно установить свойство ViewStyle в значение vsReport, чтобы ListView отображал данные в виде таблицы.

Шаг 1: Добавление колонок

var
  Col: TListColumn;
begin
  Col := ListView1.Columns.Add;
  Col.Caption := 'Full name';
  Col.Alignment := taLeftJustify;
  Col.Width := 140;

  Col := ListView1.Columns.Add;
  Col.Caption := 'Country';
  Col.Alignment := taLeftJustify;
  Col.Width := 140;
end;

Шаг 2: Добавление записей

var
  Itm: TListItem;
begin
  Itm := ListView1.Items.Add;
  Itm.Caption := SQLQuery1['fullname'];
  Itm.SubItems.Add(SQLQuery1['cntry']);
end;

Шаг 3: Обновление свойства ViewStyle

ListView1.ViewStyle := vsReport;

Полный пример кода

SQLQuery1.SQL.Text := 'SELECT * FROM users WHERE user_age= :age';
SQLQuery1.ParamByName('age').AsInteger := age;
SQLQuery1.Open;
if SQLQuery1.RecordCount = 0 then Exit;

ListView1.Style := vsReport;
ListView1.Items.BeginUpdate;
try
  while (not SQLQuery1.EOF) do
  begin
    ListItem := ListView.Items.Add;
    ListItem.Caption := SQLQuery1['fullname'].AsString;
    ListItem.SubItems.Add(SQLQuery1['cntry'].AsString);
    SQLQuery1.Next;
  end;
finally
  ListView1.Items.EndUpdate;
end;

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

Как видно из примеров кода, предоставленных сообществом разработчиков, использование SubItems и установка свойства ViewStyle в значение vsReport позволяет корректно отобразить данные в ListView в виде таблицы, что решает описанную проблему.

Заключение

В данной статье мы рассмотрели, как правильно работать с компонентом ListView в Delphi, используя SubItems и ViewStyle vsReport для корректного отображения данных в виде таблицы. Это знание поможет разработчикам избежать типичных ошибок при работе с данными и улучшить пользовательский интерфейс своих приложений.

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

В данном контексте обсуждается решение проблемы отображения данных в компоненте ListView в Delphi, связанной с вертикальным расположением данных вместо табличного вида, используя SubItems и ViewStyle vsReport.

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

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

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