Changeset 549 for trunk/LocalPlayer/Draft.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/Draft.pas (modified) (4 diffs)

trunk/LocalPlayer/Draft.pas

@@ -307 +307 @@
       for I := 0 to Lines - 1 do
       begin
-        if not(Code[I] in AutoFeature) then
+        if not (Code[I] in AutoFeature) then
         begin
           // paint +/- butttons
@@ -458 +458 @@
 procedure TDraftDlg.FormShow(Sender: TObject);
 var
-  count, D, I: Integer;
+  Count, D, I: Integer;
 begin
   Domain := dGround;
@@ -465 +465 @@
     Inc(Domain);
 
-  // count max number of features in any domain
+  // Count max number of features in any domain
   MaxLines := 0;
   for D := 0 to nDomains - 1 do
@@ -471 +471 @@
       (MyRO.Tech[upgrade[D, 0].Preq] >= tsApplicable) then
     begin
-      count := 0;
+      Count := 0;
       for I := 0 to nFeature - 1 do
         if IsFeatureInList(D, I) then
-          Inc(count);
-      if count > MaxLines then
-        MaxLines := count;
+          Inc(Count);
+      if Count > MaxLines then
+        MaxLines := Count;
     end;
   Cut := (MaxLines0 - MaxLines) * LinePitch;