Changeset 303 for branches/highdpi/UnitProcessing.pas

Timestamp:

Mar 9, 2021, 9:19:49 AM (4 years ago)

Author:

chronos

Message:

• Modified: Synced code with current trunk version.

File:

• branches/highdpi/UnitProcessing.pas (modified) (3 diffs)

branches/highdpi/UnitProcessing.pas

@@ -5 +5 @@
 
 uses
-  Protocol, Database;
+  SysUtils, Protocol, Database;
 
 type
@@ -1035 +1035 @@
     end
   end;
-  Q.Free;
+  FreeAndNil(Q);
   if (Loc = a.ToLoc) or (a.ToLoc = maNextCity) and (Loc >= 0) and
     (Map[Loc] and fCity <> 0) then
@@ -1165 +1165 @@
     end
   end;
-  Q.Free;
+  FreeAndNil(Q);
 end; // CanPlaneReturn