Ignore:
Timestamp:
Jan 17, 2018, 5:27:23 PM (7 years ago)
Author:
chronos
Message:
  • Added: Unfinished support for variable arrays.
File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/easy compiler/UFormMain.pas

    r147 r148  
    5151procedure TForm1.FormShow(Sender: TObject);
    5252begin
    53   with MemoSource.Lines do begin
     53{  with MemoSource.Lines do begin
    5454    Add('Begin');
    5555    Add('var I Integer');
    … …  
    5959    Add('PrintLn I');
    6060    Add('Decrement I 1');
    61     Add('IfZero I');
     61    Add('IfEqual I 0');
    6262    Add('Break');
    6363    Add('End');
    6464    Add('End');
    6565  end;
    66 {  with MemoSource.Lines do begin
     66  with MemoSource.Lines do begin
    6767    Add('PrintLn ''Super Calculator''');
    6868    Add('var Value1 Integer');
    … …  
    103103    Add('PrintLn Text3');
    104104  end;
    105 
     105}
    106106  with MemoSource.Lines do begin
     107    Add('Begin');
     108    Add('Var AnimalName StringArray');
     109    Add('Var AnimalProperty StringArray');
     110    Add('Var AnimalCount Integer');
     111    Add('Var Answer String');
     112    Add('Var I Integer');
    107113    Add('Assign AnimalName[0] ''an elephant''');
    108114    Add('Assign AnimalProperty[0] ''It is big and slow''');
    … …  
    122128        Add('IfEqual Answer ''y''');
    123129        Add('Begin');
    124           Add('PrintLn ''That''s clear. It is ''');
     130          Add('PrintLn ''Thats clear. It is ''');
    125131          Add('PrintLn AnimalName[I]');
    126132          Add('Break');
    127133        Add('End');
    128         Add('Increment I');
    129         Add('IfHigherOrEqual I AnimalCount');
     134        Add('Increment I 1');
     135        Add('IfEqual I AnimalCount');
    130136        Add('Break');
    131137      Add('End');
    … …  
    138144      Add('PrintLn ''''');
    139145    Add('End');
    140   end;
    141   }
     146    Add('End');
     147  end;
     148
    142149end;
    143150
Note: See TracChangeset for help on using the changeset viewer.