Changeset 290 for trunk/UnitProcessing.pas

Timestamp:

Feb 26, 2021, 11:56:48 PM (4 years ago)

Author:

chronos

Message:

• Modified: Use FreeAndNil instead of Free as defensive measure.
• Modified: Use ihnerited without same method name specification.

File:

• trunk/UnitProcessing.pas (modified) (3 diffs)

trunk/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