Changeset 205 for trunk/CityProcessing.pas

Timestamp:

May 8, 2020, 4:54:17 PM (5 years ago)

Author:

chronos

Message:

• Fixed: Removed various code compilation warnings and hints.

File:

• trunk/CityProcessing.pas (modified) (2 diffs)

trunk/CityProcessing.pas

@@ -630 +630 @@
   TileInfo: TTileInfo;
 begin
+  BestDist := MaxInt;
 {$IFOPT O-}assert(1 shl p and InvalidTreatyMap = 0); {$ENDIF}
   Best := 0;
@@ -660 +661 @@
               result := Loc1;
               Best := Resources;
-              BestDist := Dist
-            end
-          end
-        end
-      end;
-  end
+              BestDist := Dist;
+            end;
+          end;
+        end;
+      end;
+  end;
 end;