tag:blogger.com,1999:blog-29331675.post945393465350989635..comments2024-03-05T17:37:00.995+01:00Comments on The Delphi Geek: TStreamAdapter.Seek Testgabr42http://www.blogger.com/profile/06903558857617342477noreply@blogger.comBlogger2125tag:blogger.com,1999:blog-29331675.post-41338289378839579532013-10-14T12:16:25.150+02:002013-10-14T12:16:25.150+02:00in XE4u1 there EMBT fixed it by introducing a thir...in XE4u1 there EMBT fixed it by introducing a third function as TStream.Seek<br /><br /> function Seek(Offset: Longint; Origin: Word): Longint; overload; virtual;<br /> function Seek(const Offset: Int64; Origin: TSeekOrigin): Int64; overload; virtual;<br /> function Seek(const Offset: Int64; Origin: Word): Int64; overload; deprecated; inline;<br /><br />function TStream.Seek(const Offset: Int64; Origin: Word): Int64;<br />begin<br /> Result := Seek(Offset, TSeekOrigin(Origin));<br />end;<br /><br />So, EMBT fixed the bug by introducing and relying upon the functio nthey do call deprecated themselves!Arioch, thehttps://www.blogger.com/profile/05506275753418154075noreply@blogger.comtag:blogger.com,1999:blog-29331675.post-47719167520749751822013-10-11T21:05:00.526+02:002013-10-11T21:05:00.526+02:00You should add this to the QC ticket.You should add this to the QC ticket.Remy Lebeauhttp://www.lebeausoftware.orgnoreply@blogger.com