Changeset 496 for Generics/NativeGenerics/Additional/UBinarySerializer.pas

Timestamp:

Jan 5, 2018, 10:24:36 PM (7 years ago)

Author:

chronos

Message:

• Modified: New native generics classes working under FPC 3.0 transformed from TemplateGenerics package.

File:

• Generics/NativeGenerics/Additional/UBinarySerializer.pas (modified) (2 diffs)

Generics/NativeGenerics/Additional/UBinarySerializer.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, DateUtils, GenericList, GenericStream;
+  Classes, SysUtils, DateUtils, SpecializedList, SpecializedStream;
 
 type
@@ -74 +74 @@
 begin
   StringLength := 0;
-  FList.ReadBuffer(StringLength, SizeOf(StringLength));
+  Read(StringLength, SizeOf(StringLength));
   Result := ReadString(StringLength);
 end;