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)

附件列表