TStrings::SaveToFile，如果文件已经存在怎样保存？

marcal 2002-03-11 05:08:44

TStrings::SaveToFile，如果文件已经存在怎样保存？这个问题我用的方法是删除原来的文件，但是总觉得这样很不安全。所以想请教各位。

...全文

109 10 打赏收藏转发到动态举报

写回复

用AI写文章

10 条回复

切换为时间正序

请发表友善的回复…

发表回复

marcal 2002-03-12

打赏
举报

谢谢大家了，原来我试过好像不能覆盖的，今天再试又能覆盖了。所以问题解决了。

cobi 2002-03-11

打赏
举报

if (FileExists("file"))
{
switch(Application->MessageBox("File already exists. overwrite ?", "Warning", MB_ICONWARNING+MB_YESNO) )
{
case ID_YES:
...
case ID_NO:
...
}
}

就这样处理就行了。
因为strings.savetofile默认是覆盖原文件，你加上一个用户确认窗口会好一点

whitelion 2002-03-11

打赏
举报

先提示是否覆盖然后再存
如果全是你自己写的文件，直接覆盖就是

我不懂电脑 2002-03-11

打赏
举报

玩了

Cipherliu 2002-03-11

打赏
举报

同意各位的意见。

skycrying 2002-03-11

打赏
举报

也可以向Ultraedit一样，将原来的备份。

duduwolf 2002-03-11

打赏
举报

同意，同意，先删除在saveto咯

40Star 2002-03-11

打赏
举报

对阿，你可以先提醒用户是否删除

windindance 2002-03-11

打赏
举报

if (FileExists("file"))
{
switch(Application->MessageBox("File already exists. overwrite ?", "Warning", MB_ICONWARNING+MB_YESNO) )
{
case ID_YES:
...
case ID_NO:
...
}
}