Changeset 324 for trunk/LocalPlayer/CityScreen.pas

Timestamp:

Mar 23, 2021, 3:09:11 PM (3 years ago)

Author:

chronos

Message:

• Modified: Code cleanup.

File:

• trunk/LocalPlayer/CityScreen.pas (modified) (2 diffs)

trunk/LocalPlayer/CityScreen.pas

@@ -1732 +1732 @@
   end; }
 
-var
-  i, j, k: integer;
-
 procedure TCityDlg.PageUpBtnClick(Sender: TObject);
 begin
@@ -1771 +1768 @@
 end;
 
+procedure SortImprovements;
+var
+  i, j, k: integer;
+begin
+  for i := 0 to nImp - 1 do
+    ImpSorted[i] := i;
+  for i := 0 to nImp - 2 do
+    for j := i + 1 to nImp - 1 do
+      if Prio(ImpSorted[i]) > Prio(ImpSorted[j]) then begin
+        k := ImpSorted[i];
+        ImpSorted[i] := ImpSorted[j];
+        ImpSorted[j] := k;
+      end;
+end;
+
 initialization
 
-for i := 0 to nImp - 1 do
-  ImpSorted[i] := i;
-for i := 0 to nImp - 2 do
-  for j := i + 1 to nImp - 1 do
-    if Prio(ImpSorted[i]) > Prio(ImpSorted[j]) then
-    begin
-      k := ImpSorted[i];
-      ImpSorted[i] := ImpSorted[j];
-      ImpSorted[j] := k;
-    end;
+SortImprovements;
 
 end.