Согласование TObjectList и TlistView при отображении, только, определённых элементов в ListView

[Человек_Борща]

Доброго времени всем!

Есть ListView и есть ObjectList.

В ListView понадобилось отображать только те элементы, которые хочет юзер.
это успешно получается путём перезаполнения списка:
1. чистим ListView
2. для TObjectList пишем код, который будет добовлять в ListView обьекты из себя,только с опред. характеристикой(идентификатор).


Далее мне понадобилось удалять, смотреть данные из отсоритрованного списка. Обращение к элементу TObjectList идёт через индекc который выделен в Listview в данный момент. Следовательно баг. Отображается не то что хотелось.

К примеру:
Есть 4 элемента в ObjectList:
Формат: Индекс элемента - идентификатор
0 - 1
1 - 1
2 - 2
3 - 2

ListView отсортирован и отображает элементы только с ид. = 2:
0 - 2
1 - 2

Не сложно догодаться, что дабл-кликнув на элементе ListView, с индексом 0, нам вернёт ObjectList не верные данные, так ещё и не из этого элемента(0 - 1). т.к обращение к элементам ObjectList идёт через тек. ItemIndex у ListView.

Как это исправить?

[ReportCube]

Один TList - как хранилище всех созданных объектов
Второй TList - для отображения отобранных по фильтру из первого списка (только ссылки на элементы первого списка).
Сортировки по второму. Удаление: сначала из хранилища (поиск по объекту), а затем из второго - по индексу. А затем уже освобождение удалённого элемента.
TListView - в режиме работы с виртуальными данными

[Человек_Борща]

хм, о промежуточном TList как-то не подумал.

А об:

TListView - в режиме работы с виртуальными данными

можно подробнее? Как это? Что это? Где это?

[Аватар]

в ListItem есть свойство Data, в котором можно хранить как любой индекс, так и ссылку на объект. Можно им пользоваться для идентификации. Можно в неотображаемых SubItem-ах хранить ссылочную инфу, не очень удобно, что в символьном виде.

[phomm]

Я всегда подобные вещи делал через привязку навроде

with TlistView.additem(somestring) do
data := a_bindable_object;
...
if (Tlistview.items[tlistview.itemindex].data as Tmybindableobject).somemethod ...

У.П.С. Аватар опередил

[ReportCube]

TListView().OwnerData := True;
TListView().Items.Count := TList().Count;
Данные для визуализации в обработчике событии OnData по индексу параметра Item: TListItem. Добавлять Item не надо. В обработчике: Item.Caption и Item.SubItems - присваиваете данные из Вашего объекта TList[Item.Index]. Вот, в общем-то, и всё.

[Человек_Борща]

phomm,
Интересно, вот как запихиваю в DATA что-то:

procedure TVisibleLog.AddRecord(aRecordData: TLogRecord; Creating: boolean);
var
  LI: TlistItem;
begin
  Add(aREcordData);
  with fListView do
  begin
    LI := Items.Add;
    Li.SubItems.Add(aRecordData.LogMessage);
    LI.SubItems.Add(aRecordData.RecordTime);
    Li.Data:=@aRecordData;

Пытаюсь вытащить:

procedure THLRVisibleLog.ShowLogMessage(aIndx: Integer);
var
  LR:TLogRecord;
begin
  LR:=TLogRecord(fListView.Items[aIndx].Data^);
  MessageBox(Application.handle,PChar(LR.LogMessage),PChar(LR.TypeAsText+' - '+LR.RecordTime),MB_OK or MB_ICONINFORMATION);
end;

Красным отметил строку, где программа выпадает в AV.

[Аватар]

//Запихивать
Li.Data:=aRecordData;
//Читать
LR:=TLogRecord(fListView.Items[aIndx].Data);

Насколько помню TLogRecord это объект?

[Человек_Борща]

Да, TObject если быть точным.

Но ведь, Li.Data это Pointer.
И передовать нужно через @, или я опять что-то напутал?

[UP]
попробовал ваш вариант. Всеравно, на той же строке, выпадает в AV.

[Аватар]

Так Pointer это адрес, а все указатели на объекты тоже адреса

ADD

А колпак убрали при чтении? aIndx правильно передали?
Этот метод 100% рабочий, так что ошибка в другом