DELPHI 新建文件 复制文件 重命名文件名时 文件存在自动重命名
2022-10-08 16:16:04 作者:admin
本文整理自网络,侵删。
procedure TForm1.Button1Click(Sender: TObject);
var
Dir, FileTitle, FileExt: string;
s,s1: string;
j:Integer;
begin
Dir := 'C:\';
FileTitle := '新建 文本文档';
FileExt := '.txt';
s1:=Dir+FileTitle+FileExt;
j:=2;
if FileExists(s1) then //C:\新建 文本文档.txt
begin
s:=Format('%s%s(%d)%s', [dir, FileTitle, j, FileExt]);
while FileExists(s) do
begin
Inc(j);
s := Format('%s%s(%d)%s', [dir, FileTitle, j, FileExt]);
end;
if not FileExists(s) then Memo1.Lines.SaveToFile(s);
end
else
Memo1.Lines.SaveToFile(s1);
end;
https://www.cnblogs.com/xe2011/p/3384241.html
猜你喜欢
联络方式:
400-123-789
邮箱:xiachao@163.com
Q Q:12345678
微信公众号
微信二维码