Pārlūkot izejas kodu

Fix TStream.Seek problem + fix TStream.CopyFrom documentation.

Martijn Laan 6 gadi atpakaļ
vecāks
revīzija
9ba8f2a3a6
2 mainītis faili ar 3 papildinājumiem un 3 dzēšanām
  1. 1 1
      Components/UniPs
  2. 2 2
      ISHelp/isxclasses.pas

+ 1 - 1
Components/UniPs

@@ -1 +1 @@
-Subproject commit 4ec845b79e46cd3831fde8f88b04944d70f10f4b
+Subproject commit c2ee410b06fc967890bab40a8add60d3d686764a

+ 2 - 2
ISHelp/isxclasses.pas

@@ -56,10 +56,10 @@ end;
 TStream = class(TObject)
   function Read(Buffer: String; Count: Longint): Longint;
   function Write(Buffer: String; Count: Longint): Longint;
-  function Seek(Offset: Longint; Origin: Word): Longint;
+  function Seek(Offset: Int64; Origin: Word): Int64;
   procedure ReadBuffer(Buffer: String; Count: Longint);
   procedure WriteBuffer(Buffer: String; Count: Longint);
-  function CopyFrom(Source: TStream; Count: Longint): Longint;
+  function CopyFrom(Source: TStream; Count: Int64): Int64;
   property Position: Longint; read write;
   property Size: Longint; read write;
 end;