DELPHI 重命名文件名时 文件存在自动重命名

 

 

 

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;

 

 

 

 

来自为知笔记(Wiz)

附件列表