Changeset 323 for trunk/Packages/CoolStreaming/StreamHelper.pas

Timestamp:

Jun 25, 2024, 1:34:07 AM (4 months ago)

Author:

chronos

Message:

• Modified: Updated CoolStream package.

File:

• trunk/Packages/CoolStreaming/StreamHelper.pas (moved) (moved from trunk/Packages/CoolStreaming/UStreamHelper.pas ) (3 diffs)

trunk/Packages/CoolStreaming/StreamHelper.pas

@@ -1 @@
-unit UStreamHelper;
-
-{$mode delphi}{$H+}
+unit StreamHelper;
 
 interface
@@ -68 +66 @@
   end;
 
+
 implementation
 
@@ -232 +231 @@
 destructor TStreamHelper.Destroy;
 begin
-  if FOwnStream then FStream.Free;
-  inherited Destroy;
+  if FOwnStream then FreeAndNil(FStream);
+  inherited;
 end;