[Solved] Магическое исчезновение Data в TListView

[KKAA]

Пытаюсь отсортировать по своему элементы TListview путем сравнения нескольких параметров не одного типа, хранящихся во внешнем контейнере. Указатель на контейнер сохраняю в поле Data. Когда вызываю метод onCompare, то, после нескольких удачных проходов, я получаю AV в строке item2.data. Причем если я делаю сравнение как

Код: Выделить всё

Compare:=i1-i2;

, то все нормально и все сравнивается. Но если через if..then ловлю av.
тестовый проект во вложении.
Где я там дурак?

[Снег Север]

забыта проверка на ноль

Код: Выделить всё

  i1:=Integer(Item1.Data^);
  i2:=Integer(Item2.Data^);
  Compare:=0;
  if i1>i2 then
     Compare:=1
  else
  if i1<i2 then
     Compare:=-1
  else
  Compare:=-0;     

[KKAA]

Да, спасибо, уже разобрался, при выполнении моего кода со случайного шага запускался бесконечный цикл и о содержании правильных указателей уже и речи не было, отсюда и AV

[Vapaamies]

забыта проверка на ноль

Блин, а я втыкал-втыкал в код, дивился его логике, но так и не смог понять, что же хотел выразить автор.