diff options
-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} |