Changeset 549 for trunk/Database.pas

Timestamp:

Apr 21, 2024, 8:55:53 PM (3 weeks ago)

Author:

chronos

Message:

• Modified: Optimize code with earlier break from for cycle evaluating boolean result.
• Modified: Code cleanup.

File:

• trunk/Database.pas (modified) (2 diffs)

trunk/Database.pas

@@ -1036 +1036 @@
         begin
           Loc1 := dLoc(Loc, Dir and 1 * 2 - 1, Dir shr 1 * 2 - 1);
-          if (Loc1 >= 0) and (RealMap[Loc1] and fTerrain < fGrass) then
+          if (Loc1 >= 0) and (RealMap[Loc1] and fTerrain < fGrass) then begin
             OneTileLake := False;
+            Break;
+          end;
         end;
         if not OneTileLake then
@@ -1416 +1418 @@
     Ok := True;
     for C := 1 to nsc do
-      if nCityLoc[C] < sccount[C] * (8 - MinGood) div (7 - MinGood) then
+      if nCityLoc[C] < sccount[C] * (8 - MinGood) div (7 - MinGood) then begin
         Ok := False;
+        Break;
+      end;
   until Ok;