Listview保存数据的问题
恳请各位大哥帮忙看看,我真是想不明白了。
情况如下:TFileShellInfo是我自己定义的一个记录;PTFileShellInfo是指向该结构的指针;现在我想在Listview中添加该记录的数据,利用AddData过程完成,但在ListViewFile的双击事件中却怎么也取不出数据。
procedure TForm1.AddData(FileInfo:TFileShellInfo);
var
AddList:TListItem;
tmd: TFileShellInfo;
begin
AddList := ListViewFile.Items.Add ;
with FileInfo do
begin
Addlist.Caption :=FileName ;
AddList.SubItems.Add(sSize);
AddList.Data := @FileInfo;
end;
end;
procedure TForm1.ListViewFileDblClick(Sender: TObject);
var
sTpath:string;
TmpItem:TListItem;
pp:PTFileShellInfo;
begin
if ListViewFile.Selected <> nil then
begin
TmpItem := ListViewFile.Selected;
pp := PTFileShellInfo(TmpItem.Data);
Editing := pp^.FullName;
ShowMessage(Editing);
end;
end;
我对这个问题一直是稀里糊涂,恳请各位能将相关内容明示!