From: <tw...@us...> - 2020-03-07 14:53:49
|
Revision: 3062 http://sourceforge.net/p/gexperts/code/3062 Author: twm Date: 2020-03-07 14:53:47 +0000 (Sat, 07 Mar 2020) Log Message: ----------- * TStream.Read -> .ReadBuffer * TStream.Write -> .WriteBuffer Modified Paths: -------------- trunk/ExternalSource/dzlib/u_dzClassUtils.pas trunk/ExternalSource/dzlib/u_dzVclUtils.pas Modified: trunk/ExternalSource/dzlib/u_dzClassUtils.pas =================================================================== --- trunk/ExternalSource/dzlib/u_dzClassUtils.pas 2020-03-07 14:42:43 UTC (rev 3061) +++ trunk/ExternalSource/dzlib/u_dzClassUtils.pas 2020-03-07 14:53:47 UTC (rev 3062) @@ -1029,10 +1029,10 @@ var Len: Byte; begin - _Stream.Read(Len, SizeOf(Len)); + _Stream.ReadBuffer(Len, SizeOf(Len)); Result[0] := AnsiChar(Chr(Len)); if Len > 0 then - _Stream.Read(Result[1], Len); + _Stream.ReadBuffer(Result[1], Len); end; function TStream_WriteStringLn(_Stream: TStream; const _s: string): Integer; @@ -1083,7 +1083,7 @@ SetLength(s, Result); if Result <> 0 then begin _Stream.Position := OldPos; - _Stream.Read(s[1], Length(s)); + _Stream.ReadBuffer(s[1], Length(s)); _s := string(s); end; _Stream.Position := NewPos; Modified: trunk/ExternalSource/dzlib/u_dzVclUtils.pas =================================================================== --- trunk/ExternalSource/dzlib/u_dzVclUtils.pas 2020-03-07 14:42:43 UTC (rev 3061) +++ trunk/ExternalSource/dzlib/u_dzVclUtils.pas 2020-03-07 14:53:47 UTC (rev 3062) @@ -1644,7 +1644,7 @@ raise EdzVclUtils.CreateFmt(_('Glyph string contained invalid character at position %d.'), [Res]); st := TMemoryStream.Create; try - st.Write(Buf[0], Size); + st.WriteBuffer(Buf[0], Size); st.Position := 0; _btn.Glyph.LoadFromStream(st); finally @@ -1671,7 +1671,7 @@ raise EdzVclUtils.CreateFmt(_('Bitmap string contained invalid character at position %d.'), [Res]); st := TMemoryStream.Create; try - st.Write(Buf[0], Size); + st.WriteBuffer(Buf[0], Size); st.Position := 0; _bmp.LoadFromStream(st); finally @@ -3756,7 +3756,7 @@ begin st := TMemoryStream.Create; try - st.Write(_s[1], Length(_s)); + st.WriteBuffer(_s[1], Length(_s)); st.Position := 0; _Re.Lines.LoadFromStream(st); finally This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |