靠,现在才回应,我以为你已经解决了呢?呵呵!
listview和treeview一样,他每个接点都有一个Data值,是Pointer型,可以存任何数值!type
  PMyNode = ^TMyNode;
  TMyNode=record
    Str: string;
    Date:Tdatetime;
  end;
procedure
var
    P:PMyNode;
begin
  new(P);
  P.Str:=…………
  newitem:=
  newitem.Caption:=
  newitem.Data:=P;
end;  引用的时候;
 TMyNode(listview1.selected.Data^).Str