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

Timestamp:

Jun 25, 2024, 1:34:07 AM (11 days ago)

Author:

chronos

Message:

• Modified: Updated CoolStream package.

File:

• trunk/Packages/CoolStreaming/VarBlockSerializer.pas (moved) (moved from trunk/Packages/CoolStreaming/UVarBlockSerializer.pas ) (5 diffs)

trunk/Packages/CoolStreaming/VarBlockSerializer.pas

@@ -1 @@
-// 2011-02-22
-
-unit UVarBlockSerializer;
-
-{$mode Delphi}{$H+}
+unit VarBlockSerializer;
 
 // One level of recursive VarInt size supported
@@ -11 +7 @@
 
 uses
-  Classes, DateUtils, UStreamHelper, Math, SysUtils, USubStream, LazUTF8,
+  Classes, DateUtils, StreamHelper, Math, SysUtils, SubStream, LazUTF8,
   SpecializedList, LCLProc;
 
@@ -118 +114 @@
     destructor Destroy; override;
   end;
+
 
 implementation
@@ -698 +695 @@
 constructor TVarBlockSerializer.Create;
 begin
-  inherited Create;
+  inherited;
   Stream := TStreamHelper.Create;
   OwnsStream := True;
@@ -707 +704 @@
 begin
   if OwnsStream then begin
-    Stream.Free;
-  end;
-  inherited Destroy;
+    FreeAndNil(FStream);
+  end;
+  inherited;
 end;