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

* Simple formatting changes

Browse Source 
git-svn-id: trunk@42900 -
This commit is contained in:
michael 2019-09-02 07:22:24 +00:00
parent 81d398068f
commit 96fdb12eef
1 changed files with 27 additions and 29 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -181,35 +181,33 @@ type
TStreamHelper = class helper for TStream TStreamHelper = class helper for TStream
function ReadWordLE :word;
function ReadWordLE :word; function ReadDWordLE:dword;
function ReadDWordLE:dword; function ReadQWordLE:qword;
function ReadQWordLE:qword; procedure WriteWordLE (w:word);
procedure WriteWordLE (w:word); procedure WriteDWordLE(dw:dword);
procedure WriteDWordLE(dw:dword); procedure WriteQWordLE(dq:qword);
procedure WriteQWordLE(dq:qword); function ReadWordBE :word;
function ReadWordBE :word; function ReadDWordBE:dword;
function ReadDWordBE:dword; function ReadQWordBE:qword;
function ReadQWordBE:qword; procedure WriteWordBE (w:word);
procedure WriteWordBE (w:word); procedure WriteDWordBE(dw:dword);
procedure WriteDWordBE(dw:dword); procedure WriteQWordBE(dq:qword);
procedure WriteQWordBE(dq:qword); function ReadSingle:Single;
function ReadSingle:Single; function ReadDouble:Double;
function ReadDouble:Double; procedure WriteSingle(s:Single);
procedure WriteSingle(s:Single); procedure WriteDouble(d:double);
procedure WriteDouble(d:double); {$ifndef FPC}
function ReadByte : Byte;
{$ifndef FPC} function ReadWord : Word;
function ReadByte : Byte; function ReadDWord : DWord;
function ReadWord : Word; function ReadQWord : QWord;
function ReadDWord : DWord; procedure WriteByte (b : Byte);
function ReadQWord : QWord; procedure WriteWord (b : word);
procedure WriteByte (b : Byte); procedure WriteDWord (b : DWord);
procedure WriteWord (b : word); procedure WriteQWord (b : QWord);
procedure WriteDWord (b : DWord); {$endif}
procedure WriteQWord (b : QWord); end;
{$endif}
end;
Implementation Implementation