diff options
author | michael <michael@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2016-10-16 18:23:07 +0000 |
---|---|---|
committer | michael <michael@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2016-10-16 18:23:07 +0000 |
commit | a9b2ebcc2f8103a9909a06bd784c180626d9dce6 (patch) | |
tree | cee793e55ea9aadc51043cc297f948f9fbc35d02 | |
parent | 1ef8480042eb4b51656542ea0a61dc2212bf8428 (diff) | |
download | fpc-a9b2ebcc2f8103a9909a06bd784c180626d9dce6.tar.gz |
* Undid last commit, wrong branchrelease_3_0_2_rc1
git-svn-id: http://svn.freepascal.org/svn/fpc/tags/release_3_0_2_rc1@34735 3ad0048d-3df7-0310-abae-a5850022a9f2
-rw-r--r-- | packages/fcl-base/src/streamex.pp | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/packages/fcl-base/src/streamex.pp b/packages/fcl-base/src/streamex.pp index 72795bb589..58b0087a21 100644 --- a/packages/fcl-base/src/streamex.pp +++ b/packages/fcl-base/src/streamex.pp @@ -611,19 +611,19 @@ end; function TStreamHelper.ReadSingle:Single; begin - self.ReadBuffer(result,sizeof(result)); + self.Read(result,sizeof(result)); end; function TStreamHelper.ReadDouble:Double; begin - self.ReadBuffer(result,sizeof(result)); + self.Read(result,sizeof(result)); end; procedure TStreamHelper.WriteSingle(s:Single); begin - self.WriteBuffer(s,sizeof(s)); + self.Write(s,sizeof(s)); end; procedure TStreamHelper.WriteDouble(d:double); begin - self.WriteBuffer(d,sizeof(d)); + self.Write(d,sizeof(d)); end; @@ -631,32 +631,32 @@ end; // there can only be one helper per class, and I use these in Delphi for FPC compatibility. function TStreamHelper.ReadByte: Byte; begin - self.ReadBuffer(result,sizeof(result)); + self.Read(result,sizeof(result)); end; function TStreamHelper.ReadDWord: DWord; begin - self.ReadBuffer(result,sizeof(result)); + self.Read(result,sizeof(result)); end; function TStreamHelper.ReadWord: Word; begin - self.ReadBuffer(result,sizeof(result)); + self.Read(result,sizeof(result)); end; procedure TStreamHelper.WriteByte(b: Byte); begin - self.WriteBuffer(b,sizeof(b)); + self.Write(b,sizeof(b)); end; procedure TStreamHelper.WriteDWord(b: DWord); begin - self.WriteBuffer(b,sizeof(b)); + self.Write(b,sizeof(b)); end; procedure TStreamHelper.WriteWord(b: Word); begin - self.WriteBuffer(b,sizeof(b)); + self.Write(b,sizeof(b)); end; {$endif} |