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

trunk/LocalPlayer/Help.pas

@@ -965 +965 @@
       else if Item = 'AITSTAT' then
         for I := 0 to 3 do
-          AddLine(Phrases2.Lookup('AITSTAT', I), pkAITStat, I)
+          AddLine(Phrases2.Lookup('AITSTAT', I), pkAITStat, I);
     end;
   end;
@@ -1522 +1522 @@
           for Domain := 0 to nDomains - 1 do
             for I := 1 to nUpgrade - 1 do
-              if upgrade[Domain, I].Preq = No then
+              if Upgrade[Domain, I].Preq = No then
               begin
-                if upgrade[Domain, I].Strength > 0 then
+                if Upgrade[Domain, I].Strength > 0 then
                   AddLine(Format(HelpText.Lookup('STRENGTHUP'),
                     [Phrases.Lookup('DOMAIN', Domain), upgrade[Domain,
                     I].Strength]), pkDomain, Domain);
-                if upgrade[Domain, I].Trans > 0 then
+                if Upgrade[Domain, I].Trans > 0 then
                   AddLine(Format(HelpText.Lookup('TRANSUP'),
                     [Phrases.Lookup('DOMAIN', Domain), upgrade[Domain, I].Trans]
@@ -1534 +1534 @@
                 if No in FutureTech then
                   AddLine(Format(HelpText.Lookup('COSTUP'),
-                    [upgrade[Domain, I].Cost]), pkNormal_Dot)
+                    [Upgrade[Domain, I].Cost]), pkNormal_Dot)
                 else
                   AddLine(Format(HelpText.Lookup('COSTMIN'),
-                    [upgrade[Domain, I].Cost]), pkNormal_Dot)
+                    [Upgrade[Domain, I].Cost]), pkNormal_Dot)
               end;
           NextSection('EXPIRATION');