如何在虚拟列表视图显示数据后立即保存它？

Question

我想在填充数据后立即将数据保存在虚拟列表视图中。如果我使用 Savedialog 来保存数据，它就可以工作。如果我在ListviewOnData事件中调用保存过程，它会提示错误“无法创建文件...”。我在这里重现我的观察。

procedure TForm6.savefileList(AListView: TListView; sFileName: string);

begin
F:= TFileStream.Create(sFileName, fmCreate or fmOpenRead);
...                                                       
...
F.free;

end;

Procedure Tform6.SavevirtualistinSaveDialog;// A buttonClick calls this procedure
begin
If SaveDialog1.execute then
savefilelist(listview1, savedialog1.FileName);; // It works and save data in sfilename.
..
end;

procedure TForm6.ListView1Data(Sender: TObject; Item: TListItem);
begin


with ld do begin     
...
...
// filling data in virtual list

end;
             // Right after filling data, I call Dosavelist procedure.
Dosavelist; //error line " Can not Create file", If I annotate this line
            // and call SavevirtualistinDialog in another buttonClick event, 
            //the data can be saved.

end;

Procedure Tform6.Dosavelist;
begin
savefilelist(listview1, extractfilepath(application.exename)+'list.tmp');
end;

我希望在填充数据后立即将数据保存在列表视图（虚拟模式）中。但提示错误。

怎么解决呢。先感谢您。

新编辑：

我从listview1data事件中删除Dosavelist并将其放入另一个跟踪listview的函数中。有用。于是就解决了。 谢谢大家的帮助。

//My complete savefilelist para is:

savefilelist(listview1, extractfilepath(application.exename)+'list.tmp'); 

//In SavevirtualistinSaveDialog procedure, the complete save code line is: 

savefilelist(listview1, savedialog1.FileName);

或者Dosavelist程序可能没有被调用？在哪里？如何捕捉虚拟列表视图刚刚填充完毕的瞬间？我不知道 ListviewData 事件之后紧接的是什么事件？

再次感谢您。

Answer 1

这听起来好像您没有指定绝对文件路径。然后 Windows 在保存文件时依赖当前工作目录。保存对话框设置此目录，因此一切正常。在您的 ListviewOnData 事件中，cwd 可能未正确设置。