Question

Delphi 导出数据时 如何判断文件是否重名

使用Delphi导出数据时 若文件名一样提示是否覆盖原有文件，该如何实现？

Answer 1

outfile := 'c:\test.txt'; // 替换成你要导出的文件名
if FileExists(outfile) then begin
if MessageBox('文件'+outfile+'已存在,是否覆盖?','导出',mb_YesNo)<>ID_YES then
Exit; // 选择不覆盖,则直接退出
end;
// 原文件名不存在, 或文件存在而又选择覆盖原文件,则执行下面语句
Memo1.Lines.SaveFile(outfile); // 换成你的导出保存语句

Answer 2

if FileExists(路径) then
if ID_YES = Application.MessageBox('覆盖？','询问',mb_YesNo) then
//用if判断吧
第一个 判断文件是否存在
第二个 判断提示是否选择的“是”

Answer 3

SaveDialog控件的 Options.ofOverwritePromt 属性设置为 true