Changeset 143 for trunk/Forms/UFormSourceCode.pas

Timestamp:

Mar 8, 2022, 10:55:43 AM (3 years ago)

Author:

chronos

Message:

• Added: Action to generate text as brainfuck code.
• Modified: Used loop in number generation.

File:

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

trunk/Forms/UFormSourceCode.pas

@@ -15 +15 @@
 
   TFormSourceCode = class(TForm)
+    AGenerateText: TAction;
     ACutToClipboard: TAction;
     ASelectAll: TAction;
@@ -35 +36 @@
     MenuItem5: TMenuItem;
     MenuItem6: TMenuItem;
+    MenuItem7: TMenuItem;
+    Separator1: TMenuItem;
     PopupMenuSource: TPopupMenu;
     SynEditSource: TSynEdit;
@@ -43 +46 @@
     procedure AFormatSourceExecute(Sender: TObject);
     procedure AGenerateNumberExecute(Sender: TObject);
+    procedure AGenerateTextExecute(Sender: TObject);
     procedure APasteFromClipboardExecute(Sender: TObject);
     procedure ASelectAllExecute(Sender: TObject);
@@ -72 +76 @@
 
 uses
-  UCore, UFormMain;
+  UCore, UFormMain, UBFCodeTools;
 
 resourcestring
   SNumberGeneration = 'Number generation';
   SEnterNumber = 'Enter number';
-
+  STextGeneration = 'Text generation';
+  SEnterText = 'Enter text';
 
 { TFormSourceCode }
@@ -83 +88 @@
 procedure TFormSourceCode.AGenerateNumberExecute(Sender: TObject);
 var
+  Number: Integer;
   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 + '+';
-    SynEditSource.SelText := NumberText;
+    SynEditSource.SelText := GenerateNumber(Number);
   end;
 end;
 
+procedure TFormSourceCode.AGenerateTextExecute(Sender: TObject);
+var
+  Text: string;
+begin
+  Text := InputBox(STextGeneration, SEnterText, '');
+  SynEditSource.SelText := GenerateText(Text);
+end;
+
 procedure TFormSourceCode.APasteFromClipboardExecute(Sender: TObject);
 begin
@@ -107 +116 @@
 
 procedure TFormSourceCode.AFormatSourceExecute(Sender: TObject);
-var
-  Source: string;
-  NewSource: string;
-  Indent: Integer;
-  I: Integer;
-const
-  IndentText = '  ';
-begin
-  Source := SynEditSource.Text;
-  NewSource := '';
-  Indent := 0;
-  for I := 1 to Length(Source) do begin
-    if Source[I] = '[' then begin
-      NewSource := NewSource + LineEnding + DupeString(IndentText, Indent) + Source[I] + LineEnding ;
-      Inc(Indent);
-      NewSource := NewSource + DupeString(IndentText, Indent);
-    end
-    else if Source[I] = ']' then begin
-      Dec(Indent);
-      NewSource := NewSource + LineEnding + DupeString(IndentText, Indent) + Source[I] + LineEnding + DupeString(IndentText, Indent);
-    end
-    else if Ord(Source[I]) > $20 then
-      NewSource := NewSource + Source[I];
-  end;
-  SynEditSource.Text := NewSource;
+begin
+  SynEditSource.Text := FormatCode(SynEditSource.Text);
   MemoSourceChange(nil);
 end;
@@ -151 +137 @@
 
 procedure TFormSourceCode.AShrinkSourceExecute(Sender: TObject);
-var
-  Source: string;
-  Pos: Integer;
-  I: Integer;
-begin
-  Source := SynEditSource.Text;
-  Pos := 1;
-  for I := 1 to Length(Source) do begin
-    if Source[I] > ' ' then begin
-      Source[Pos] := Source[I];
-      Inc(Pos);
-    end;
-  end;
-  SetLength(Source, Pos - 1);
-  SynEditSource.Text := Source;
+begin
+  SynEditSource.Text := ShrinkCode(SynEditSource.Text);
   MemoSourceChange(nil);
 end;