Context Navigation

FormDisassembler.pas

Last change on this file was 8, checked in by chronos, 3 months ago
Added: Common package. Added: Memory form to show content of memory.
File size: 949 bytes

Line
1	unit FormDisassembler;
2
3	interface
4
5	uses
6	Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, Disassembler,
7	FormEx;
8
9	type
10
11	{ TFormDisassembler }
12
13	TFormDisassembler = class(TFormEx)
14	MemoCode: TMemo;
15	procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
16	procedure FormCreate(Sender: TObject);
17	procedure FormDestroy(Sender: TObject);
18	procedure FormShow(Sender: TObject);
19	public
20	Disassembler: TDisassembler;
21	end;
22
23
24	implementation
25
26	{$R *.lfm}
27
28	{ TFormDisassembler }
29
30	procedure TFormDisassembler.FormCreate(Sender: TObject);
31	begin
32	Disassembler := TDisassembler.Create;
33	end;
34
35	procedure TFormDisassembler.FormClose(Sender: TObject;
36	var CloseAction: TCloseAction);
37	begin
38	end;
39
40	procedure TFormDisassembler.FormDestroy(Sender: TObject);
41	begin
42	FreeAndNil(Disassembler);
43	end;
44
45	procedure TFormDisassembler.FormShow(Sender: TObject);
46	begin
47	Disassembler.Disassemble(MemoCode.Lines);
48	end;
49
50	end.
51

Note: See TracBrowser for help on using the repository browser.