paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-07 21:50:14 +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
function ReadWordLE :word;
function ReadDWordLE:dword;
function ReadQWordLE:qword;
procedure WriteWordLE (w:word);
procedure WriteDWordLE(dw:dword);
procedure WriteQWordLE(dq:qword);
function ReadWordBE :word;
function ReadDWordBE:dword;
function ReadQWordBE:qword;
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;
function ReadDWord : DWord;
function ReadQWord : QWord;
procedure WriteByte (b : Byte);
procedure WriteWord (b : word);
procedure WriteDWord (b : DWord);
procedure WriteQWord (b : QWord);
{$endif}
end;
function ReadWordLE :word;
function ReadDWordLE:dword;
function ReadQWordLE:qword;
procedure WriteWordLE (w:word);
procedure WriteDWordLE(dw:dword);
procedure WriteQWordLE(dq:qword);
function ReadWordBE :word;
function ReadDWordBE:dword;
function ReadQWordBE:qword;
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;
function ReadDWord : DWord;
function ReadQWord : QWord;
procedure WriteByte (b : Byte);
procedure WriteWord (b : word);
procedure WriteDWord (b : DWord);
procedure WriteQWord (b : QWord);
{$endif}
end;
Implementation