unit1.~pas

delphi编写的pascal解释器

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, untCompile, StdCtrls, ComCtrls, untPasScriptCompile;

type
  TForm1 = class(TForm)
    Button1: TButton;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    Memo1: TMemo;
    Memo2: TMemo;
    Button2: TButton;
    Button3: TButton;
    TabSheet3: TTabSheet;
    Memo3: TMemo;
    TabSheet4: TTabSheet;
    Memo4: TMemo;
    Button4: TButton;
    Memo5: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    comp: TCompile;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  comp := TCompile.Create;
  comp.SrcCode := Memo1.Lines.Text;
  comp.Compile;

  
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  Memo2.Text := comp.getVariables;
  Memo3.Text := comp.getPCode;
  Memo4.Text := comp.getConsts;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  comp.Run;
end;

procedure TForm1.Button4Click(Sender: TObject);
var
  u: TAnalyUnit;
begin
  glbTokenReader.SourceCode := Memo1.Text;
  u := TAnalyUnit.Create;
  u.Analy;
  Memo5.Text := glbVMCPU.VMPCodeList.Text;
end;

end.