From 1ca450a9575e317c994457ef594eaafdc96ec047 Mon Sep 17 00:00:00 2001
From: Michele Summo <michaelius7@hotmail.com>
Date: Mon, 8 Nov 2021 19:36:57 +0100
Subject: [PATCH] Bugfix file position: used short-circuit notation

---
 apophysis7x/Forms/About.dfm | 2 +-
 apophysis7x/Forms/Main.pas  | 6 +++---
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/apophysis7x/Forms/About.dfm b/apophysis7x/Forms/About.dfm
index 9f8a110..432731d 100644
--- 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
index da95eaa..900f93c 100644
--- 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);