Использование `TList` в качестве источника данных для `cxGrid` в Delphi

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

Использование TList в качестве источника данных для cxGrid в Delphi

Введение

Вопрос использования TList в качестве источника данных для компонента cxGrid в Delphi возникает, когда необходимо отобразить список объектов в виде таблицы, не заботясь о сохранении данных. cxGrid - это мощный компонент для отображения и работы с данными, который может быть адаптирован для работы с различными источниками данных, включая пользовательские.

Основная часть

Для начала, стоит отметить, что cxGrid поддерживает несколько способов работы с данными: не привязанный (unbound), привязанный (bound) и "provider" режим. В режиме "provider" можно использовать практически любой источник данных, включая TList.

Шаг 1: Создание класса для работы с TList

Создадим класс TTListDataSource, который наследуется от TcxCustomDataSource. Этот класс будет использоваться для работы с TList определенного типа, например TMyList, содержащего элементы TMyListItem.

TTListDataSource = class(TcxCustomDataSource)
private
  FTList: TMyList;
protected
  function GetRecordCount: Integer; override;
  function GetValue(ARecordHandle: TcxDataRecordHandle; AItemHandle: TcxDataItemHandle): Variant; override;
public
  constructor Create(ATList: TMyList);
end;

Шаг 2: Реализация метода GetRecordCount

В методе GetRecordCount возвращаем количество элементов в TList.

constructor TTListDataSource.Create(ATList: TMyList);
begin
  inherited Create;
  FTList := ATList;
end;

function TTListDataSource.GetRecordCount: Integer;
begin
  Result := FTList.Count;
end;

Шаг 3: Реализация метода GetValue

В методе GetValue получаем значение элемента TListItem по указанному индексу и полю.

function TTListDataSource.GetValue(ARecordHandle: TcxDataRecordHandle; AItemHandle: TcxDataItemHandle): Variant;
var
  aIndex: Integer;
  aMyListItem: TMyListItem;
begin
  aCurrentIndex := Integer(ARecordHandle);
  if (aCurrentIndex >= 0) and (aCurrentIndex < FTList.Count) then
  begin
    aMyListItem := FTList[aCurrentIndex] as TMyListItem;
    aIndex := Integer(AItemHandle);
    case aIndex of
      0: Result := aMyListItem.Name;
      1: Result := aMyListItem.Year;
      2: Result := aMyListItem.Quarter;
      else
        Result := '';
    end;
  end
  else
    Result := '';
end;

Шаг 4: Использование TTListDataSource

После реализации класса TTListDataSource, можно его использовать для отображения данных из TList в cxGrid.

FTListDataSource := TTListDataSource.Create(TMyList);
ThePivotGrid.DataController.CustomDataSource := FTListDataSource;
FTListDataSource.DataChanged;

Дополнительные материалы

Для получения более подробной информации о том, как создать пользовательский источник данных для cxGrid, можно ознакомиться с модулем cxCustomData.pas и примером реализации источника данных для дерева, доступным по ссылке.

Заключение

Использование TList в качестве источника данных для cxGrid является вполне выполнимой задачей, которая требует создания класса-провайдера, наследующегося от TcxCustomDataSource и реализации методов для работы с данными. Это позволяет гибко настроить отображение данных в соответствии с нуждами приложения.

Примечание

В документации cxGrid также описаны различные способы работы с данными, включая "provider" режим, который позволяет использовать практически любой источник данных для отображения в виде таблицы или дерева.

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

Использование `TList` в качестве источника данных для компонента `cxGrid` в Delphi включает создание класса-провайдера для обеспечения взаимодействия между списком объектов и табличным представлением данных.

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

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

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