Changeset 549 for trunk/CityProcessing.pas

Timestamp:

Apr 21, 2024, 8:55:53 PM (7 months ago)

Author:

chronos

Message:

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

File:

• trunk/CityProcessing.pas (modified) (1 diff)

trunk/CityProcessing.pas

@@ -1605 +1605 @@
                 RareOK := False;
                 for iH := 0 to nHierarchy - 1 do
-                  if Hierarchy[iH, nSelection[iH]].V21 and RareTiles <> 0 then
+                  if Hierarchy[iH, nSelection[iH]].V21 and RareTiles <> 0 then begin
                     RareOK := True;
+                    Break;
+                  end;
                 if not RareOK then
                   TestReport.ProdRep := TestReport.Support;