Changeset 549 for trunk/LocalPlayer/NatStat.pas

Timestamp:

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

Author:

chronos

Message:

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

File:

• trunk/LocalPlayer/NatStat.pas (modified) (1 diff)

trunk/LocalPlayer/NatStat.pas

@@ -229 +229 @@
   HasContact := False;
   for p1 := 0 to nPl - 1 do
-    if (p1 <> Me) and (CurrentReport.Treaty[p1] > trNoContact) then
+    if (p1 <> Me) and (CurrentReport.Treaty[p1] > trNoContact) then begin
       HasContact := True;
+      Break;
+    end;
   if HasContact then
   begin