Bugfix file position: used short-circuit notation

michele-summo · Nov 8, 2021 · 1ca450a · 1ca450a
1 parent c99e275
commit 1ca450a
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/apophysis7x/Forms/About.dfm b/apophysis7x/Forms/About.dfm
@@ -1742,7 +1742,7 @@ object AboutForm: TAboutForm
     Width = 377
     Height = 13
     AutoSize = False
-    Caption = 'Unofficial version 2021-10-31 by www.michelesummo.it'
+    Caption = 'Unofficial version 2021-11-08 by www.michelesummo.it'
   end
   object Hackers: TLabel
     Left = 16

diff --git a/apophysis7x/Forms/Main.pas b/apophysis7x/Forms/Main.pas
@@ -2033,9 +2033,9 @@ function TMainForm.SaveXMLFlame(const cp1: TControlPoint; title, filename: strin
             repeat
               if FileList.Count > 0 then
                 FileList.Delete(FileList.Count - 1);
-            until (Pos('<' + Tag + '>', FileList[FileList.count - 1]) <> 0) or
-                  (Pos('</flames>', FileList[FileList.count - 1]) <> 0) or
-                  (FileList.Count = 0);
+            until (FileList.Count = 0) or
+                  (Pos('<' + Tag + '>', FileList[FileList.count - 1]) <> 0) or
+                  (Pos('</flames>', FileList[FileList.count - 1]) <> 0);
         end else
         begin
           FileList.Delete(FileList.Count - 1);