* TStream.Read/writeqword. Mantis 15023

git-svn-id: trunk@14111 -

rtl/objpas/classes/classesh.inc

@@ -791,10 +791,12 @@ type
     function ReadByte : Byte;
     function ReadWord : Word;
     function ReadDWord : Cardinal;
+    function ReadQWord : QWord;
     function ReadAnsiString : String;
     procedure WriteByte(b : Byte);
     procedure WriteWord(w : Word);
     procedure WriteDWord(d : Cardinal);
+    procedure WriteQWord(q : QWord);
     Procedure WriteAnsiString (const S : String);
     property Position: Int64 read GetPosition write SetPosition;
     property Size: Int64 read GetSize write SetSize64;

rtl/objpas/classes/streams.inc

@@ -345,6 +345,15 @@ end;
        ReadDWord:=d;
     end;
 
+  function TStream.ReadQWord: QWord;
+    var
+       q: QWord;
+    begin
+      ReadBuffer(q,8);
+      ReadQWord:=q;
+
+    end;
+
   Function TStream.ReadAnsiString : String;
 
   Var
@@ -390,6 +399,11 @@ end;
        WriteBuffer(d,4);
     end;
 
+  procedure TStream.WriteQWord(q: QWord);
+    begin
+      WriteBuffer(q,8);
+    end;
+
 
 {****************************************************************************}
 {*                             THandleStream                                *}