Changeset 496 for trunk/LocalPlayer/Select.pas

Timestamp:

Dec 18, 2023, 10:31:54 PM (5 months ago)

Author:

chronos

Message:

• Modified: Code cleanup.

File:

• trunk/LocalPlayer/Select.pas (modified) (10 diffs)

trunk/LocalPlayer/Select.pas

@@ -986 +986 @@
 procedure TListDlg.InitLines;
 var
-  required: array [0 .. nAdv - 1] of Integer;
+  Required: array [0 .. nAdv - 1] of Integer;
 
   procedure TryAddImpLine(Layer, Project: Integer);
@@ -1000 +1000 @@
   procedure SortTechs;
   var
-    I, J, swap: Integer;
+    I, J, Swap: Integer;
   begin // sort by advancedness
     for I := 0 to Lines[0] - 2 do
@@ -1008 +1008 @@
             nAdv + Code[0, J] then
           begin
-            swap := Code[0, I];
+            Swap := Code[0, I];
             Code[0, I] := Code[0, J];
-            Code[0, J] := swap;
+            Code[0, J] := Swap;
           end;
   end;
@@ -1016 +1016 @@
   procedure SortCities;
   var
-    I, J, swap: Integer;
+    I, J, Swap: Integer;
   begin
     for I := 0 to Lines[0] - 2 do
@@ -1023 +1023 @@
         then
         begin
-          swap := Code[0, I];
+          Swap := Code[0, I];
           Code[0, I] := Code[0, J];
-          Code[0, J] := swap;
+          Code[0, J] := Swap;
         end;
   end;
@@ -1039 +1039 @@
   procedure SortModels;
   var
-    I, J, swap: Integer;
+    I, J, Swap: Integer;
   begin // sort by code[2]
     for I := 0 to Lines[0] - 2 do
@@ -1045 +1045 @@
         if Code[2, I] > Code[2, J] then
         begin
-          swap := Code[0, I];
+          Swap := Code[0, I];
           Code[0, I] := Code[0, J];
-          Code[0, J] := swap;
-          swap := Code[1, I];
+          Code[0, J] := Swap;
+          Swap := Code[1, I];
           Code[1, I] := Code[1, J];
-          Code[1, J] := swap;
-          swap := Code[2, I];
+          Code[1, J] := Swap;
+          Swap := Code[2, I];
           Code[2, I] := Code[2, J];
-          Code[2, J] := swap;
+          Code[2, J] := Swap;
         end;
   end;
@@ -1059 +1059 @@
   procedure MarkPreqs(I: Integer);
   begin
-    required[I] := 1;
+    Required[I] := 1;
     if MyRO.Tech[I] < tsSeen then
     begin
@@ -1147 +1147 @@
         if MyData.FarTech <> adNone then
         begin
-          FillChar(required, SizeOf(required), 0);
+          FillChar(Required, SizeOf(Required), 0);
           MarkPreqs(MyData.FarTech);
         end;
@@ -1153 +1153 @@
           if ((I in FutureTech) or (MyRO.Tech[I] < tsApplicable)) and
             (Server(sSetResearch - sExecute, Me, I, nil^) >= rExecuted) and
-            ((MyData.FarTech = adNone) or (required[I] > 0)) then
+            ((MyData.FarTech = adNone) or (Required[I] > 0)) then
           begin
             Code[0, Lines[0]] := I;