瀏覽代碼

FIX: Bug [0002054] Multi Rename Tool not working for "repeating" filenames

Alexander Koblov 6 年之前
父節點
當前提交
c66fd647d3
共有 1 個文件被更改,包括 2 次插入2 次删除
  1. 2 2
      src/fmultirename.pas

+ 2 - 2
src/fmultirename.pas

@@ -1174,11 +1174,11 @@ begin
 
       // Avoid collisions with OldNames
       J:= FOldNames.Find(AFile.Name);
-      if J >= 0 then
+      if (J >= 0) and (J <> I) then
       begin
         NewName:= AFile.Name;
         // Generate temp file name, save file index as extension
-        AFile.Name:= ExtractFileName(GetTempName(FFiles[I].Path)) + ExtensionSeparator + IntToStr(I);
+        AFile.FullPath:= GetTempName(FFiles[I].Path) + ExtensionSeparator + IntToStr(I);
         TempFiles.AddObject(NewName, AFile.Clone);
       end;