Changeset 290 for trunk/Start.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/Start.pas (modified) (5 diffs)

trunk/Start.pas

@@ -244 +244 @@
 begin
   FreeAndNil(Bitmap);
-  inherited Destroy;
+  inherited;
 end;
 
@@ -471 +471 @@
       Brains.GetByKind(btAI, AIBrains);
       BrainDefault := Brains[0];
-      AIBrains.Free;
+      FreeAndNil(AIBrains);
     end; // default AI not found, use any
 
@@ -698 +698 @@
     end;
   end;
-  AIBrains.Free;
+  FreeAndNil(AIBrains);
 end;
 
@@ -1411 +1411 @@
       if AIBrains[I].Flags and fMultiple <> 0 then
         OfferBrain(AIBrains[I], FixedLines);
-    AIBrains.Free;
+    FreeAndNil(AIBrains);
   end else begin
     FixedLines := 0;
@@ -1439 +1439 @@
           or (Brains[I] = PlayersBrain[PlayerPopupIndex]) then
           OfferBrain(AIBrains[i], FixedLines);
-      AIBrains.Free;
+      FreeAndNil(AIBrains);
     end;
   end;