Changeset 24 for trunk/Forms/UMainForm.pas

Timestamp:

Feb 13, 2012, 7:28:45 AM (13 years ago)

Author:

chronos

Message:

• Added: Tool for number generation using '+' symbol.

File:

• trunk/Forms/UMainForm.pas (modified) (7 diffs)

trunk/Forms/UMainForm.pas

@@ -21 +21 @@
     AAbout: TAction;
     ABreakpointToggle: TAction;
+    AGenerateNumber: TAction;
     AShrinkSource: TAction;
     AFormatSource: TAction;
@@ -65 +66 @@
     MenuItem26: TMenuItem;
     MenuItem27: TMenuItem;
+    MenuItem28: TMenuItem;
+    MenuItem29: TMenuItem;
     MenuItemOpenRecent: TMenuItem;
     MenuItemTarget: TMenuItem;
@@ -95 +98 @@
     procedure AExitExecute(Sender: TObject);
     procedure AFormatSourceExecute(Sender: TObject);
+    procedure AGenerateNumberExecute(Sender: TObject);
     procedure AOptionsExecute(Sender: TObject);
     procedure AProgramPauseExecute(Sender: TObject);
@@ -152 +156 @@
   UCompilerDelphi, UCompilerPHP;
 
+resourcestring
+  SEnterNumber = 'Enter number';
+  SNumberGeneration = 'Number generation';
+
 { TMainForm }
 
@@ -316 +324 @@
 procedure TMainForm.AProgramRunExecute(Sender: TObject);
 begin
+  InterpreterForm.LastStepCounter := 0;
   InterpreterForm.Show;
   BrainFuckInterpreter.Input := InterpreterForm.MemoInput.Lines.Text;
@@ -388 +397 @@
 end;
 
+procedure TMainForm.AGenerateNumberExecute(Sender: TObject);
+var
+  NumberText: string;
+  Number: Integer;
+  I: Integer;
+begin
+  NumberText := InputBox(SNumberGeneration, SEnterNumber, '1');
+  if TryStrToInt(NumberText, Number) then begin
+    NumberText := '';
+    for I := 0 to Number - 1 do
+      NumberText := NumberText + '+';
+    MemoSource.Text := MemoSource.Text + NumberText;
+  end;
+end;
+
 procedure TMainForm.AOptionsExecute(Sender: TObject);
 begin
@@ -458 +482 @@
     MemoSource.Lines.SaveToFile(UTF8Decode(SaveDialog1.FileName));
     ProjectFileName := SaveDialog1.FileName;
+    LastOpenedList.Add(SaveDialog1.FileName);
     Modified := False;
     UpdateInterface;