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

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

Странно,

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

этот кусок кода выполняется, обязательно, для всех строк.

Далее:

procedure TVisibleLog.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;

Синий, выполняется, но равен nil. Почему? Куда исчезает указатель?
Дальнейшее выполение выпадает в AV.

[Аватар]

Значит в Data nil. Ищите где не заполняете или где очищаете это поле. А nil точно? Возможно ссылка на удаленный объект?

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

хм, он где-то теряется...
тест-код:

    procedure ListView1DblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

type
  TTestItem=Class(TObject)
  Thiss:string;
  end;


var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  LI:TListItem;
  TI:TTestItem;
begin
  LI:=Listview1.Items.Add;
  TI:=TTestItem.Create;
  ti.Thiss:='ололо';
  li.Caption:='Double Click!';
  Li.Data:=TI;
end;

procedure TForm1.ListView1DblClick(Sender: TObject);
var
  i:Integer;
  TI:TTestItem;
begin
  i:=ListView1.ItemIndex;
  if (i >= 0) then
  begin
    If ListView1.Items[i].Selected then
    begin
    TI:=TTestItem(ListView1.Items[i].Data);
    ShowMessage(TI.Thiss);
    end;
  end;
end;

end.

работает.

Не могу понять, где теряется ссылка...
В каких моментах она теряется?
Больше с ListItem.Data для этого списка, нигде не работаю...

Что имелось ввиду под удалённым обьектом?

[Аватар]

Что имелось ввиду под удалённым обьектом?

Метод Free выполнен для объекта после записи ссылки на него в Data. А до первого AddRecord листвью был очищен?

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

Хм, действительно. в процедуре сортировки, LV очищается и перезаполняется.
Вот там-то, я и забыл переткнуть LI.Data.

Вопрос исчерпан.

Жаль + можно одын раз поставить =(
Очень помогли.