Changeset 145 for branches/easy compiler/UFormMain.pas
- Timestamp:
- Jan 17, 2018, 1:11:56 PM (7 years ago)
- Location:
- branches/easy compiler
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/easy compiler
- Property svn:ignore
-
old new 2 2 *.exe 3 3 *.lps 4 heaptrclog.trc
-
- Property svn:ignore
-
branches/easy compiler/UFormMain.pas
r142 r145 51 51 procedure TForm1.FormShow(Sender: TObject); 52 52 begin 53 with MemoSource.Lines do begin 53 { with MemoSource.Lines do begin 54 Add('var I Integer'); 55 Add('Assign I 10'); 56 Add('Repeat'); 57 Add('Begin'); 58 Add('Decrement I 1'); 59 Add('IfZero I'); 60 Add('Break'); 61 Add('End'); 62 end; 63 } with MemoSource.Lines do begin 54 64 Add('PrintLn ''Super Calculator'''); 55 65 Add('var Value1 Integer'); … … 63 73 Add('InputLn Value2'); 64 74 65 Add('begin');66 75 Add('Assign Result Value1'); 67 76 Add('Increment Result Value2'); 68 77 Add('Print ''Sum of two values is: '''); 69 78 Add('PrintLn Result'); 70 Add('end');71 79 end; 72 80 { with MemoSource.Lines do begin
Note:
See TracChangeset
for help on using the changeset viewer.