Question

Delphi 像Windows一样 新建文件时重复时 重命名文件名

请看Windows在新建Text文本时是如何工作的？
情况一：
第1次新建一个Txt文本 文件名为 新建文本文档
第2次新建一个Txt文本 文件名为 新建文本文档 (2)
第3 次新建一个Txt文本 文件名为 新建文本文档 (3)
...
第n 次新建一个Txt文本 文件名为 新建文本文档 (n)

情况二：
第1次新建一个Txt文本 文件名为 新建文本文档
第2次新建一个Txt文本 文件名为 新建文本文档 (2)
第3 次新建一个Txt文本 文件名为 新建文本文档 (3)
...
第n 次新建一个Txt文本 文件名为 新建文本文档 (n)
假设把 新建文本文档 这个文件删除 再次新建文件时的文件名又会是 新建文本文档
Windows在创建文件时会判断某个文件是否存在，请问如何用Delphi实现这样的功能？
保存文件就用Memo1.Lines.SaveToFile( );行了
正解 问题已解决
http://www.cnblogs.com/xe2011/p/3384241.html





Answer 1

判断文件存在 FileExists(文件路径).
fn:='新建文本文档.txt';
while FileExists(fn) do //判断文件存在
begin
inc(n);
fn :='新建文本文档('+ inttostr(n) +').txt'; //获得新的文件名
end;
保存文件.