Changeset 575 for PinConnection/CommMark.pas

Timestamp:

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

Author:

chronos

Message:

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

File:

• PinConnection/CommMark.pas (moved) (moved from PinConnection/UCommMark.pas ) (2 diffs)

PinConnection/CommMark.pas

@@ -1 @@
-unit UCommMark;
-
-{$mode delphi}{$H+}
+unit CommMark;
 
 interface
 
 uses
-  Classes, SysUtils, UCommPin, SpecializedList;
+  Classes, SysUtils, CommPin, SpecializedList;
 
 type
@@ -106 +104 @@
 destructor TCommMark.Destroy;
 begin
-  FFrameData.Free;
-  Mark.Free;
-  PinRaw.Free;
-  PinFrame.Free;
-  inherited Destroy;
+  FreeAndNil(FFrameData);
+  FreeAndNil(Mark);
+  FreeAndNil(PinRaw);
+  FreeAndNil(PinFrame);
+  inherited;
 end;