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


在线咨询 拨打电话