From d4e7a67bb3c628c3734bdb2a623e93c2b2df2f24 Mon Sep 17 00:00:00 2001
From: marco <marco@freepascal.org>
Date: Sun, 27 Mar 2016 18:50:38 +0000
Subject: [PATCH] --- Merging r33041 into '.': U   
 packages/fcl-base/src/streamex.pp --- Recording mergeinfo for merge of r33041
 into '.':  U   .

# revisions: 33041

git-svn-id: branches/fixes_3_0@33351 -
---
 packages/fcl-base/src/streamex.pp | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)

diff --git a/packages/fcl-base/src/streamex.pp b/packages/fcl-base/src/streamex.pp
index 9f23c6f812..58b0087a21 100644
--- a/packages/fcl-base/src/streamex.pp
+++ b/packages/fcl-base/src/streamex.pp
@@ -179,6 +179,7 @@ type
 
 
   TStreamHelper = class helper for TStream
+
                      function  ReadWordLE :word;
                      function  ReadDWordLE:dword;
                      function  ReadQWordLE:qword;
@@ -191,6 +192,11 @@ type
                      procedure WriteWordBE (w:word);
   		     procedure WriteDWordBE(dw:dword);
 	             procedure WriteQWordBE(dq:qword);
+                     function  ReadSingle:Single;
+                     function  ReadDouble:Double;
+                     procedure WriteSingle(s:Single);
+                     procedure WriteDouble(d:double);
+
                      {$ifndef FPC}
                       function ReadByte  : Byte;
                       function ReadWord  : Word;
@@ -603,6 +609,24 @@ begin
   WriteQWord(NtoLE(dq));
 end;
 
+function  TStreamHelper.ReadSingle:Single;
+begin
+  self.Read(result,sizeof(result));
+end;
+function  TStreamHelper.ReadDouble:Double;
+begin
+  self.Read(result,sizeof(result));
+end;
+procedure TStreamHelper.WriteSingle(s:Single);
+begin
+  self.Write(s,sizeof(s));
+end;
+procedure TStreamHelper.WriteDouble(d:double);
+begin
+  self.Write(d,sizeof(d));
+end;
+
+
 {$ifndef FPC}
 // there can only be one helper per class, and I use these in Delphi for FPC compatibility.
 function TStreamHelper.ReadByte: Byte;