Selaa lähdekoodia

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

Martijn Laan 6 vuotta sitten
vanhempi
commit
9ba8f2a3a6
2 muutettua tiedostoa jossa 3 lisäystä ja 3 poistoa
  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)
 TStream = class(TObject)
   function Read(Buffer: String; Count: Longint): Longint;
   function Read(Buffer: String; Count: Longint): Longint;
   function Write(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 ReadBuffer(Buffer: String; Count: Longint);
   procedure WriteBuffer(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 Position: Longint; read write;
   property Size: Longint; read write;
   property Size: Longint; read write;
 end;
 end;