DEADSOFTWARE

search files in archives starting from last
authorKetmar Dark <ketmar@ketmar.no-ip.org>
Fri, 8 Apr 2016 18:13:29 +0000 (21:13 +0300)
committerKetmar Dark <ketmar@ketmar.no-ip.org>
Fri, 8 Apr 2016 18:15:26 +0000 (21:15 +0300)
  generally, archive can contain files with the same name, and we
  probably want the last one, as it is usually newer than others.

src/shared/WADEDITOR.pas

index c9af0bd7fd68617801c85d2caaf6310ed83bf2bb..de670694b81fe44207506b355c7351b3921ea86c 100644 (file)
@@ -163,7 +163,8 @@ begin
   if not isOpen or (fIter = nil) then Exit;
   if length(Resource) = 0 then Exit; // just in case
   if (length(Section) <> 0) and (Section[length(Section)] <> '/') then Section := Section+'/';
-  for f := 0 to fIter.Count-1 do
+  // backwards, due to possible similar names and such
+  for f := fIter.Count-1 downto 0 do
   begin
     fi := fIter.Files[f];
     if fi = nil then continue;