Changeset 575 for PinConnection/PacketBurst.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/PacketBurst.pas (moved) (moved from PinConnection/UPacketBurst.pas ) (3 diffs)

PinConnection/PacketBurst.pas

@@ -1 @@
-unit UPacketBurst;
-
-{$mode Delphi}{$H+}
+unit PacketBurst;
 
 interface
 
 uses
-  Classes, UCommPin, SyncObjs, UCommon, SysUtils, SpecializedList,
-  DateUtils, UBinarySerializer;
+  Classes, CommPin, SyncObjs, Common, SysUtils, SpecializedList,
+  DateUtils, BinarySerializer;
 
 type
@@ -39 +37 @@
   end;
 
+
 implementation
 
@@ -59 +58 @@
 begin
   Active := False;
-  SendThreadEvent.Free;
-  PacketSinglePin.Free;
-  PacketBurstPin.Free;
+  FreeAndNil(SendThreadEvent);
+  FreeAndNil(PacketSinglePin);
+  FreeAndNil(PacketBurstPin);
   inherited;
 end;