Changeset 47 for branches/ByteArray/Devices/Serial.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/Serial.pas (modified) (3 diffs)

branches/ByteArray/Devices/Serial.pas

@@ -17 +17 @@
     FOnWrite: TWriteEvent;
   public
-    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;
@@ -30 +30 @@
 { TSerial }
 
-function TSerial.Read(Address: TBigInt; Size: Byte): TBigInt;
+function TSerial.Read(Address: TBigInt; Size: TBigIntSize): TBigInt;
 begin
   case Integer(Address) of
@@ -37 +37 @@
 end;
 
-procedure TSerial.Write(Address: TBigInt; Size: Byte; Value: TBigInt);
+procedure TSerial.Write(Address: TBigInt; Size: TBigIntSize; Value: TBigInt);
 begin
   case Integer(Address) of