Changeset 50 for branches/ByteArray/Forms/FormDisassembler.pas

Timestamp:

Nov 2, 2023, 11:18:06 PM (2 years ago)

Author:

chronos

Message:

• Added: Storage form.
• Added: Dissasembler form.
• Added: Debug and release build modes.
• Added: Support for interface translation.

File:

• branches/ByteArray/Forms/FormDisassembler.pas (modified) (3 diffs)

branches/ByteArray/Forms/FormDisassembler.pas

@@ -4 +4 @@
 
 uses
-  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls;
+  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, Disassembler;
 
 type
@@ -12 +12 @@
   TFormDisassembler = class(TForm)
     MemoCode: TMemo;
+    procedure FormCreate(Sender: TObject);
+    procedure FormDestroy(Sender: TObject);
+    procedure FormShow(Sender: TObject);
   private
 
   public
-
+    Disassembler: TDisassembler;
   end;
 
@@ -26 +29 @@
 {$R *.lfm}
 
+{ TFormDisassembler }
+
+procedure TFormDisassembler.FormCreate(Sender: TObject);
+begin
+  Disassembler := TDisassembler.Create;
+end;
+
+procedure TFormDisassembler.FormDestroy(Sender: TObject);
+begin
+  FreeAndNil(Disassembler);
+end;
+
+procedure TFormDisassembler.FormShow(Sender: TObject);
+begin
+  Disassembler.Disassemble(MemoCode.Lines);
+end;
+
 end.