Changeset 146 for branches/easy compiler/UFormMain.pas

Timestamp:

Jan 17, 2018, 2:25:45 PM (7 years ago)

Author:

chronos

Message:

• Modified: ParseBeginEnd method split to several other items for parsing each specific command.

File:

• branches/easy compiler/UFormMain.pas (modified) (2 diffs)

branches/easy compiler/UFormMain.pas

@@ -51 +51 @@
 procedure TForm1.FormShow(Sender: TObject);
 begin
-{  with MemoSource.Lines do begin
+  with MemoSource.Lines do begin
+    Add('Begin');
     Add('var I Integer');
     Add('Assign I 10');
-    Add('Repeat');
+    //Add('Repeat');
     Add('Begin');
-    Add('Decrement I 1');
+    //Add('Decrement I 1');
     Add('IfZero I');
-    Add('Break');
+    Add('Print ''condition''');
+    //Add('Break');
     Add('End');
-  end;
- } with MemoSource.Lines do begin
+    Add('End');
+  end;
+{  with MemoSource.Lines do begin
     Add('PrintLn ''Super Calculator''');
     Add('var Value1 Integer');
@@ -78 +81 @@
     Add('PrintLn Result');
   end;
-{  with MemoSource.Lines do begin
+  with MemoSource.Lines do begin
     Add('PrintLn ''Hello World!''');
     Add('print ''Hello'' PRINT '' World!''');