Changeset 15 for trunk/Forms/FormMemory.pas

Timestamp:

Apr 21, 2026, 6:15:40 PM (5 days ago)

Author:

chronos

Message:

• Modified: Faster instruction stepping.

File:

• trunk/Forms/FormMemory.pas (modified) (6 diffs)

trunk/Forms/FormMemory.pas

@@ -5 +5 @@
 uses
   Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ComCtrls, ExtCtrls,
-  StdCtrls, MemoryTypes, Generics.Collections;
+  StdCtrls, MemoryTypes, Generics.Collections, Math;
 
 type
@@ -31 +31 @@
     procedure ReloadAreas;
     procedure Reload;
+    procedure ReloadList;
   end;
 
@@ -46 +47 @@
 procedure TFormMemory.Reload;
 begin
-  ListViewMemory.Items.Count := FSize div ItemsPerLine;
+  FReloadPending := True;
+end;
+
+procedure TFormMemory.ReloadList;
+begin
+  ListViewMemory.Items.Count := Ceil(FSize / ItemsPerLine);
   ListViewMemory.Refresh;
 end;
@@ -56 +62 @@
   Text: string;
   One: Byte;
+  Count: Byte;
+  Address: Word;
 begin
-  if Item.Index < FSize div ItemsPerLine then begin
+  Address := Item.Index * ItemsPerLine;
+  if Address < FSize then begin
+    Count := ItemsPerLine;
+    if (Address + Count) >= FSize then
+      Count := FSize - Address;
     Line := '';
     Text := '';
-    for I := 0 to ItemsPerLine - 1 do begin
-      One := FMemory.Read(Item.Index * ItemsPerLine + I);
+    for I := 0 to Count - 1 do begin
+      One := FMemory.Read(Address + I);
       Line := Line + IntToHex(One, 2) + ' ';
       if One >= 32 then Text := Text + Char(One)
         else Text := Text + ' ';
     end;
-    Item.Caption := IntToHex(Item.Index * ItemsPerLine, 8);
+    Item.Caption := IntToHex(Address, 8);
     Item.SubItems.Add(Line);
     Item.SubItems.Add(Text);
@@ -76 +88 @@
   ReloadAreas;
   ComboBoxAreaSelect(nil);
-  FReloadPending := True;
+  Reload;
 end;
 
@@ -105 +117 @@
   if FReloadPending then begin
     FReloadPending := False;
-    Reload;
+    ReloadList;
   end;
 end;