Changeset 202 for branches/interpreter2/UFormMain.pas

Timestamp:

Apr 17, 2020, 12:09:15 AM (5 years ago)

Author:

chronos

Message:

• Added: Support for String, Integer and Boolean types.
• Added: Support for more system defined functions..
• Added: Support for line comments.
• Added: For-To-Do construction.
• Added: Defined function parameters and and parsing function calls with parameters.
• Modified: Improved handling of expressions.

File:

• branches/interpreter2/UFormMain.pas (modified) (4 diffs)

branches/interpreter2/UFormMain.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, USource;
+  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls,
+  SynHighlighterPas, SynEdit, USource;
 
 type
@@ -17 +18 @@
     Label1: TLabel;
     Label2: TLabel;
-    MemoSource: TMemo;
     MemoLog: TMemo;
     MemoOutput: TMemo;
+    SynEditSource: TSynEdit;
+    SynFreePascalSyn1: TSynFreePascalSyn;
     procedure ButtonCompileClick(Sender: TObject);
     procedure ButtonRunClick(Sender: TObject);
@@ -53 +55 @@
   if not Initialized then begin
     Initialized := True;
-    MemoSource.Lines.LoadFromFile('Test.pas');
+    SynEditSource.Lines.LoadFromFile('Test.pas');
     ButtonRun.Click;
   end;
@@ -95 +97 @@
   Parser := TParser.Create;
   Parser.OnError := InterpreterError;
-  Parser.Source := MemoSource.Lines.Text;
+  Parser.Source := SynEditSource.Lines.Text;
   Parser.Parse;
   if Assigned(Prog) then Prog.Free;