Changeset 203 for branches/interpreter2/UFormMain.pas
- Timestamp:
- Apr 17, 2020, 10:16:25 PM (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/interpreter2/UFormMain.pas
r202 r203 16 16 ButtonCompile: TButton; 17 17 ButtonRun: TButton; 18 ButtonGenerate: TButton; 18 19 Label1: TLabel; 19 20 Label2: TLabel; … … 23 24 SynFreePascalSyn1: TSynFreePascalSyn; 24 25 procedure ButtonCompileClick(Sender: TObject); 26 procedure ButtonGenerateClick(Sender: TObject); 25 27 procedure ButtonRunClick(Sender: TObject); 26 28 procedure FormActivate(Sender: TObject); … … 47 49 48 50 uses 49 UParser, UExecutor ;51 UParser, UExecutor, UGenerator; 50 52 51 53 { TFormMain } … … 105 107 end; 106 108 109 procedure TFormMain.ButtonGenerateClick(Sender: TObject); 110 var 111 Generator: TGenerator; 112 begin 113 ButtonCompile.Click; 114 MemoOutput.Lines.Clear; 115 if Assigned(Prog) then begin 116 Generator := TGenerator.Create; 117 Generator.Prog := Prog; 118 Generator.Generate; 119 MemoOutput.Lines.Text := Generator.Output; 120 Generator.Free; 121 end; 122 end; 123 107 124 procedure TFormMain.InterpreterError(Pos: TPoint; Text: string); 108 125 begin
Note:
See TracChangeset
for help on using the changeset viewer.