Changeset 9 for branches/ByteArray/Channel.pas

Timestamp:

Aug 6, 2024, 10:31:16 PM (2 months ago)

Author:

chronos

Message:

• Modified: Optimized DeviceMapper read/write handlers calls without case statement.
• Modified: Use TInt as base data type which can be redefined to different higher integer type. For start it is Int64.

Location:

branches/ByteArray

Files:

• . (modified) (1 prop)
• Channel.pas (modified) (1 diff)

branches/ByteArray/Channel.pas

@@ -4 +4 @@
 
 uses
-  Classes, SysUtils, BigInt;
+  Classes, SysUtils, Int;
 
 type
   TChannel = class
   type
-    TRead = function (Address: TBigInt; DataSize: TBigIntSize): TBigInt of object;
-    TWrite = procedure (Address: TBigInt; DataSize: TBigIntSize; Value: TBigInt) of object;
-    TGetSize = function : TBigInt of object;
+    TRead = function (Address: TInt; DataSize: TIntSize): TInt of object;
+    TWrite = procedure (Address: TInt; DataSize: TIntSize; Value: TInt) of object;
+    TGetSize = function : TInt of object;
   var
     Read: TRead;
     Write: TWrite;
     GetSize: TGetSize;
+  end;
+
+  TChannelDevice = class
+    procedure SetChannel(Channel: TChannel); virtual; abstract;
   end;