paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-24 09:39:11 +02:00
Code Issues Packages Projects Releases Wiki Activity

--- Merging r33041 into '.':

Browse Source 
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 -
This commit is contained in:
marco 2016-03-27 18:50:38 +00:00
parent 6a42afd135
commit d4e7a67bb3
1 changed files with 24 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
packages/fcl-base/src/streamex.pp
View File

@ -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;