Changeset 201 for branches/interpreter2/UFormMain.pas

Timestamp:

Apr 16, 2020, 7:40:38 PM (5 years ago)

Author:

chronos

Message:

• Fixed: Memory leaks.

Location:

branches/interpreter2

Files:

• . (modified) (1 prop)
• UFormMain.pas (modified) (3 diffs)

branches/interpreter2/UFormMain.pas

@@ -23 +23 @@
     procedure ButtonRunClick(Sender: TObject);
     procedure FormActivate(Sender: TObject);
+    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
+    procedure FormDestroy(Sender: TObject);
     procedure FormShow(Sender: TObject);
   private
@@ -56 +58 @@
 end;
 
+procedure TFormMain.FormClose(Sender: TObject; var CloseAction: TCloseAction);
+begin
+
+end;
+
+procedure TFormMain.FormDestroy(Sender: TObject);
+begin
+  if Assigned(Prog) then Prog.Free;
+end;
+
 procedure TFormMain.FormShow(Sender: TObject);
 begin
@@ -85 +97 @@
   Parser.Source := MemoSource.Lines.Text;
   Parser.Parse;
+  if Assigned(Prog) then Prog.Free;
   Prog := Parser.Prog;
   Parser.Free;