Changeset 549 for trunk/NoTerm.pas

Timestamp:

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

Author:

chronos

Message:

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

File:

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

trunk/NoTerm.pas

@@ -256 +256 @@
                 ShipComplete := True;
                 for I := 0 to nShipPart - 1 do
-                  if G.RO[Me].Ship[P].Parts[I] < ShipNeed[I] then
+                  if G.RO[Me].Ship[P].Parts[I] < ShipNeed[I] then begin
                     ShipComplete := False;
+                    Break;
+                  end;
                 if ShipComplete then
                   Inc(WinStat[P]);