Changeset 575 for PinConnection/CommDelay.pas

Timestamp:

Jun 25, 2024, 11:56:51 AM (4 months ago)

Author:

chronos

Message:

• Modified: Remove U prefix from unit names of PinConnection package.

File:

• PinConnection/CommDelay.pas (moved) (moved from PinConnection/UCommDelay.pas ) (4 diffs)

PinConnection/CommDelay.pas

@@ -1 @@
-unit UCommDelay;
-
-{$mode Delphi}{$H+}
+unit CommDelay;
 
 interface
 
 uses
-  Classes, SysUtils, UCommPin, UThreading, SyncObjs, SpecializedList;
+  Classes, SysUtils, CommPin, Threading, SyncObjs, SpecializedList;
 
 type
@@ -52 +50 @@
     property Delay: TDateTime read FDelay write FDelay;
   end;
+
 
 implementation
@@ -103 +102 @@
 destructor TDelayedPacket.Destroy;
 begin
-  Data.Free;
-  inherited Destroy;
+  FreeAndNil(Data);
+  inherited;
 end;
 
@@ -186 +185 @@
 begin
   Active := False;
-  Pin2.Free;
-  Pin1.Free;
-  PacketQueue1.Free;
-  PacketQueue2.Free;
-  Lock1.Free;
-  Lock2.Free;
-  inherited Destroy;
+  FreeAndNil(Pin2);
+  FreeAndNil(Pin1);
+  FreeAndNil(PacketQueue1);
+  FreeAndNil(PacketQueue2);
+  FreeAndNil(Lock1);
+  FreeAndNil(Lock2);
+  inherited;
 end;