Changeset 14 for trunk/UMainForm.pas

Timestamp:

Feb 11, 2012, 6:27:10 PM (12 years ago)

Author:

chronos

Message:

• Added: Support for memory cell up to Integer size. Default 256.
• Fixed: Application now can be closed if running program is waiting to new key press.

File:

• trunk/UMainForm.pas (modified) (5 diffs)

trunk/UMainForm.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, SynEdit, Forms, Controls, Graphics, Dialogs,
-  Menus, ActnList, StdCtrls, ComCtrls, UBrainFuck;
+  Menus, ActnList, StdCtrls, ComCtrls, UBrainFuck, SpecializedList;
 
 type
@@ -107 +107 @@
     BrainFuckCompiler: TBrainFuckCompiler;
     BrainFuckInterpreter: TBrainFuckInterpretter;
+    BreakPoints: TListInteger;
     procedure UpdateInterface;
     procedure UpdateStatusBar;
@@ -185 +186 @@
 procedure TMainForm.FormCreate(Sender: TObject);
 begin
+  BreakPoints := TListInteger.Create;
   BrainFuckInterpreter := TBrainFuckInterpretter.Create;
   BrainFuckInterpreter.OnChangeState := BrainFuckInterpreterChangeState;
@@ -194 +196 @@
   BrainFuckCompiler.Free;
   BrainFuckInterpreter.Free;
+  BreakPoints.Free;
 end;
 
@@ -226 +229 @@
 procedure TMainForm.AOptionsExecute(Sender: TObject);
 begin
+  OptionsForm.LoadFromInterpretter(BrainFuckInterpreter);
   if OptionsForm.ShowModal = mrOK then begin
-
+    OptionsForm.SaveToInterpretter(BrainFuckInterpreter);
   end;
 end;