Changeset 9 for branches/ByteArray/Devices/Device.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)
• Devices/Device.pas (modified) (4 diffs)

branches/ByteArray/Devices/Device.pas

@@ -4 +4 @@
 
 uses
-  Classes, SysUtils, Channel, Forms, BigInt, Common.FormEx;
+  Classes, SysUtils, Channel, Forms, Int, Common.FormEx, Generics.Collections;
 
 type
@@ -12 +12 @@
   TFormDevice = class;
 
+  TReadEvent = function (DataSize: TIntSize): TInt of object;
+  TWriteEvent = procedure (DataSize: TIntSize; Value: TInt) of object;
+  TReadEvents = TList<TReadEvent>;
+  TWriteEvents = TList<TWriteEvent>;
+
+  { THandlers }
+
+  THandlers = class
+    ReadHandlers: TReadEvents;
+    WriteHandlers: TWriteEvents;
+    constructor Create;
+    destructor Destroy; override;
+  end;
+
   { TDevice }
 
@@ -18 +32 @@
     DeviceClass: TDeviceClass;
     Form: TFormDevice;
-    BaseAddress: Integer;
-    function GetAddressCount: Integer; virtual;
-    procedure SetChannel(Channel: TChannel); virtual;
+    function GetHandlers: THandlers; virtual;
   end;
 
@@ -60 +72 @@
 end;
 
+{ THandlers }
+
+constructor THandlers.Create;
+begin
+  ReadHandlers := TReadEvents.Create;
+  WriteHandlers := TWriteEvents.Create;
+end;
+
+destructor THandlers.Destroy;
+begin
+  FreeAndNil(ReadHandlers);
+  FreeAndNil(WriteHandlers);
+  inherited;
+end;
+
 { TDevice }
 
-function TDevice.GetAddressCount: Integer;
+function TDevice.GetHandlers: THandlers;
 begin
-  Result := 0;
-end;
-
-procedure TDevice.SetChannel(Channel: TChannel);
-begin
+  Result := nil;
 end;