Changeset 8 for branches/bigint/Forms/FormMain.pas

Timestamp:

Aug 2, 2024, 9:36:35 AM (3 months ago)

Author:

chronos

Message:

• Added: Common package.
• Added: Memory form to show content of memory.

Location:

branches/bigint

Files:

• . (modified) (1 prop)
• Forms/FormMain.pas (modified) (5 diffs)

branches/bigint

@@ -4 +4 @@
 BigIntVM.dbg
 lib
+heaptrclog.trc

@@ -4 +4 @@
 BigIntVM.dbg
 lib
+heaptrclog.trc

branches/bigint/Forms/FormMain.pas

@@ -4 +4 @@
 
 uses
-  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, Machine, Int,
-  Cpu, Assembler, FormDisassembler;
+  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, Machine,
+  Assembler, FormDisassembler, FormEx, FormMemory;
 
 type
@@ -11 +11 @@
   { TFormMain }
 
-  TFormMain = class(TForm)
+  TFormMain = class(TFormEx)
     Memo1: TMemo;
     procedure FormCreate(Sender: TObject);
@@ -20 +20 @@
   public
     SubFormDisassembler: TFormDisassembler;
+    SubFormMemory: TFormMemory;
     Machine: TMachine;
   end;
@@ -41 +42 @@
 procedure TFormMain.FormDestroy(Sender: TObject);
 begin
+  FreeAndNil(SubFormMemory);
+  FreeAndNil(SubFormDisassembler);
   FreeAndNil(Machine);
 end;
@@ -66 +69 @@
   SubFormDisassembler.Disassembler.Memory := Machine.Memory;
   SubFormDisassembler.Show;
+
+  SubFormMemory := TFormMemory.Create(nil);
+  SubFormMemory.Memory := Machine.Memory;
+  SubFormMemory.Show;
 end;
 

@@ -4 +4 @@
 BigIntVM.dbg
 lib
+heaptrclog.trc