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

branches/ByteArray/Devices/Memory.pas

@@ -4 +4 @@
 
 uses
-  Classes, SysUtils, BigInt, Channel, Device;
+  Classes, SysUtils, Int, Channel, Device;
 
 type
@@ -10 +10 @@
   { TMemory }
 
-  TMemory = class(TDevice)
+  TMemory = class(TChannelDevice)
   private
-    FSize: Integer;
+    FSize: TInt;
     FData: PByte;
-    function GetSize: Integer;
-    procedure SetSize(AValue: Integer);
+    function GetSize: TInt;
+    procedure SetSize(AValue: TInt);
     procedure CheckGrow(Address: Integer);
   public
-    Position: Integer;
+    Position: TInt;
     Grow: Boolean;
     procedure Assign(Source: TMemory);
-    function Read(Address: TBigInt; ASize: TBigIntSize): TBigInt;
-    function ReadPos(ASize: Byte): TBigInt;
-    procedure Write(Address: TBigInt; ASize: TBigIntSize; Value: TBigInt);
-    procedure WritePos(ASize: Byte; Value: TBigInt);
+    function Read(Address: TInt; ASize: TIntSize): TInt;
+    function ReadPos(ASize: Byte): TInt;
+    procedure Write(Address: TInt; ASize: TIntSize; Value: TInt);
+    procedure WritePos(ASize: Byte; Value: TInt);
     procedure WriteStringPos(Value: string);
     procedure WriteMemoryPos(Memory: TMemory);
-    function GetAddressCount: Integer; override;
     procedure SetChannel(Channel: TChannel); override;
     procedure SaveToFile(FileName: string);
+    procedure LoadFromFile(FileName: string);
     procedure FillZero;
     procedure Clear;
-    property Size: Integer read FSize write SetSize;
+    property Size: TInt read FSize write SetSize;
     destructor Destroy; override;
   end;
@@ -44 +44 @@
 { TMemory }
 
-function TMemory.GetSize: Integer;
+function TMemory.GetSize: TInt;
 begin
   Result := MemSize(FData);
 end;
 
-procedure TMemory.SetSize(AValue: Integer);
+procedure TMemory.SetSize(AValue: TInt);
 begin
   FSize := AValue;
@@ -68 +68 @@
 end;
 
-function TMemory.Read(Address: TBigInt; ASize: TBigIntSize): TBigInt;
+function TMemory.Read(Address: TInt; ASize: TIntSize): TInt;
 begin
   if Address + ASize > FSize then raise Exception.Create(SOutOfRange);
@@ -79 +79 @@
 end;
 
-function TMemory.ReadPos(ASize: Byte): TBigInt;
+function TMemory.ReadPos(ASize: Byte): TInt;
 begin
   Result := Read(Position, ASize);
@@ -85 +85 @@
 end;
 
-procedure TMemory.Write(Address: TBigInt; ASize: TBigIntSize; Value: TBigInt);
+procedure TMemory.Write(Address: TInt; ASize: TIntSize; Value: TInt);
 begin
   if Address + ASize > FSize then raise Exception.Create(SOutOfRange);
@@ -96 +96 @@
 end;
 
-procedure TMemory.WritePos(ASize: Byte; Value: TBigInt);
+procedure TMemory.WritePos(ASize: Byte; Value: TInt);
 begin
   CheckGrow(Position + ASize);
@@ -126 +126 @@
 end;
 
-function TMemory.GetAddressCount: Integer;
-begin
-  Result := FSize;
-end;
-
 procedure TMemory.SetChannel(Channel: TChannel);
 begin
   Channel.Read := Read;
   Channel.Write := Write;
+  Channel.GetSize := GetSize;
 end;
 
@@ -168 +164 @@
 end;
 
+procedure TMemory.LoadFromFile(FileName: string);
+var
+  F: TFileStream;
+begin
+  F := TFileStream.Create(FileName, fmOpenRead);
+  try
+    if FSize < F.Size then Size := F.Size;
+    F.Read(FData[0], FSize);
+  finally
+    F.Free;
+  end;
+end;
+
 end.