Changeset 47 for branches/ByteArray/Devices/Storage.pas

Timestamp:

Oct 25, 2023, 12:33:07 AM (7 months ago)

Author:

chronos

Message:

• Added: Common package.
• Modified: Improved BigInt class.

File:

• branches/ByteArray/Devices/Storage.pas (modified) (3 diffs)

branches/ByteArray/Devices/Storage.pas

@@ -17 +17 @@
     FFile: TFileStream;
     Position: Integer;
-    function Read(Address: TBigInt; Size: Byte): TBigInt;
-    procedure Write(Address: TBigInt; Size: Byte; Value: TBigInt);
+    function Read(Address: TBigInt; Size: TBigIntSize): TBigInt;
+    procedure Write(Address: TBigInt; Size: TBigIntSize; Value: TBigInt);
     function GetAddressCount: Integer; override;
     procedure SetChannel(Channel: TChannel); override;
@@ -42 +42 @@
 end;
 
-function TStorage.Read(Address: TBigInt; Size: Byte): TBigInt;
+function TStorage.Read(Address: TBigInt; Size: TBigIntSize): TBigInt;
 var
   Buffer: array of Byte;
@@ -59 +59 @@
 end;
 
-procedure TStorage.Write(Address: TBigInt; Size: Byte; Value: TBigInt);
+procedure TStorage.Write(Address: TBigInt; Size: TBigIntSize; Value: TBigInt);
 var
   Buffer: array of Byte;