Changeset 143 for trunk/Forms/UFormMemory.pas

Timestamp:

Mar 8, 2022, 10:55:43 AM (3 years ago)

Author:

chronos

Message:

• Added: Action to generate text as brainfuck code.
• Modified: Used loop in number generation.

File:

• trunk/Forms/UFormMemory.pas (modified) (2 diffs)

trunk/Forms/UFormMemory.pas

@@ -54 +54 @@
   Row: string;
   I: Integer;
+  Text: string;
+  Address: Integer;
 begin
   if Core.CurrentTarget is TTargetInterpretter then
@@ -60 +62 @@
     Item.Caption := IntToHex(Item.Index * RowSize, 8);
     Row := '';
-    for I := 0 to RowSize - 1 do
-      if (Item.Index * RowSize + I) < (MemoryMaxUsedAddr + 1) then
-        Row := Row + ' ' + IntToHex(Memory[Item.Index * RowSize + I], 2);
+    Text := Default(string);
+    SetLength(Text, RowSize);
+    for I := 0 to RowSize - 1 do begin
+      Address := Item.Index * RowSize + I;
+      if Address < (MemoryMaxUsedAddr + 1) then begin
+        Row := Row + ' ' + IntToHex(Memory[Address], 2);
+        if Memory[Address] > Ord(' ') then Text[I + 1] := Chr(Memory[Address])
+          else Text[I + 1] := ' ';
+      end else Text[I + 1] := ' ';
+    end;
     Item.SubItems.Add(Row);
+    Item.SubItems.Add(Text);
   end;
 end;