Changeset 72 for trunk/Packages/TemplateGenerics/Additional/UBinarySerializer.pas

Timestamp:

Mar 6, 2016, 12:10:38 AM (8 years ago)

Author:

chronos

Message:

• Modified: Built with FPC 3.0.0. Fixed various compiler messages.

File:

• trunk/Packages/TemplateGenerics/Additional/UBinarySerializer.pas (modified) (9 diffs)

trunk/Packages/TemplateGenerics/Additional/UBinarySerializer.pas

@@ -65 +65 @@
   StringLength: Longint;
 begin
+  StringLength  := 0;
   FStream.ReadBuffer(StringLength, SizeOf(StringLength));
   Result := ReadString(StringLength);
@@ -94 +95 @@
 function TBinarySerializer.ReadByte: Byte;
 begin
+  Result := 0;
   FStream.ReadBuffer(Result, SizeOf(Byte));
 end;
@@ -99 +101 @@
 function TBinarySerializer.ReadCardinal: Cardinal;
 begin
+  Result := 0;
   FStream.ReadBuffer(Result, SizeOf(Cardinal));
   if SwapData then Result := SwapEndian(Result);
@@ -105 +108 @@
 function TBinarySerializer.ReadInt64: Int64;
 begin
+  Result := 0;
   FStream.ReadBuffer(Result, SizeOf(Int64));
   if SwapData then Result := SwapEndian(Result);
@@ -121 +125 @@
   Count: Byte;
 begin
+  Count := 0;
   FStream.ReadBuffer(Count, 1);
   Result := ReadString(Count);
@@ -206 +211 @@
 function TBinarySerializer.ReadDouble: Double;
 begin
+  Result := 0;
   FStream.ReadBuffer(Result, SizeOf(Double));
 end;
@@ -211 +217 @@
 function TBinarySerializer.ReadSingle: Single;
 begin
+  Result := 0;
   FStream.ReadBuffer(Result, SizeOf(Single));
 end;
@@ -216 +223 @@
 function TBinarySerializer.ReadWord: Word;
 begin
+  Result := 0;
   FStream.ReadBuffer(Result, SizeOf(Word));
   if SwapData then Result := SwapEndian(Result);
@@ -262 +270 @@
 procedure TBinarySerializer.WriteByte(Data: Byte);
 begin
+  Data := 0;
   FStream.WriteBuffer(Data, SizeOf(Byte));
 end;