Changeset 290 for trunk/LocalPlayer/Help.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/LocalPlayer/Help.pas (modified) (8 diffs)

trunk/LocalPlayer/Help.pas

@@ -208 +208 @@
 destructor THyperText.Destroy;
 begin
-  inherited Destroy;
+  inherited;
 end;
 
@@ -1237 +1237 @@
       until FindNext(sr) <> 0;
     FindClose(sr);
-    Plus.Free;
+    FreeAndNil(Plus);
 
     List.Sort;
@@ -1254 +1254 @@
       MainText.AddLine(s);
     end;
-    List.Free;
+    FreeAndNil(List);
   end;
 
@@ -1272 +1272 @@
       MainText.AddLine(s);
     end;
-    List.Free;
+    FreeAndNil(List);
   end;
 
@@ -1434 +1434 @@
             AppendList(List);
           end;
-          List.Free;
+          FreeAndNil(List);
         end
         else // single advance
@@ -1533 +1533 @@
           List.Sort;
           AppendList(List);
-          List.Free;
+          FreeAndNil(List);
         end
         else if no = 201 then
@@ -1822 +1822 @@
             AppendList(List);
           end;
-          List.Free;
+          FreeAndNil(List);
         end
         else
@@ -1983 +1983 @@
     OffscreenPaint;
     Invalidate;
-    HistItem.Free;
+    FreeAndNil(HistItem);
   end;
 end;