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

branches/ByteArray/Devices/Serial.pas

@@ -4 +4 @@
 
 uses
-  Classes, SysUtils, Device, BigInt, Channel;
+  Classes, SysUtils, Device, Int, Channel;
 
 type
@@ -17 +17 @@
     FOnWrite: TWriteEvent;
   public
-    function Read(Address: TBigInt; Size: TBigIntSize): TBigInt;
-    procedure Write(Address: TBigInt; Size: TBigIntSize; Value: TBigInt);
-    function GetAddressCount: Integer; override;
-    procedure SetChannel(Channel: TChannel); override;
+    function ReadData(Size: TIntSize): TInt;
+    procedure WriteData(Size: TIntSize; Value: TInt);
+    function GetHandlers: THandlers; override;
     property OnWrite: TWriteEvent read FOnWrite write FOnWrite;
     property OnRead: TReadEvent read FOnRead write FOnRead;
@@ -30 +29 @@
 { TSerial }
 
-function TSerial.Read(Address: TBigInt; Size: TBigIntSize): TBigInt;
+function TSerial.ReadData(Size: TIntSize): TInt;
 begin
-  case Integer(Address) of
-    0: if Assigned(FOnRead) then Result := FOnRead;
-  end;
+  if Assigned(FOnRead) then Result := FOnRead;
 end;
 
-procedure TSerial.Write(Address: TBigInt; Size: TBigIntSize; Value: TBigInt);
+procedure TSerial.WriteData(Size: TIntSize; Value: TInt);
 begin
-  case Integer(Address) of
-    0: if Assigned(FOnWrite) then FOnWrite(Value);
-  end;
+  if Assigned(FOnWrite) then FOnWrite(Value);
 end;
 
-function TSerial.GetAddressCount: Integer;
+function TSerial.GetHandlers: THandlers;
 begin
-  Result := 1;
-end;
-
-procedure TSerial.SetChannel(Channel: TChannel);
-begin
-  Channel.Read := Read;
-  Channel.Write := Write;
+  Result := THandlers.Create;
+  Result.ReadHandlers.Add(ReadData);
+  Result.WriteHandlers.Add(WriteData);
 end;