unit1.dfm

语言编译过程采用一趟扫描方式,以语法分析程序为核心,词法分析程序和代码生成程序都作为一个独立的过程,当语法分析需要读单词时就调用词法分析程序,而当语法分析正确需生成相应的目标代码时,则调用代码生成程序

object Form1: TForm1
  Left = 216
  Top = 97
  Width = 753
  Height = 575
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  DesignSize = (
    745
    548)
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 0
    Top = 0
    Width = 538
    Height = 544
    Anchors = [akLeft, akTop, akRight, akBottom]
    Caption = #36816#34892#31383#21475
    TabOrder = 0
    DesignSize = (
      538
      544)
    object Memo1: TMemo
      Left = 0
      Top = 8
      Width = 538
      Height = 533
      Anchors = [akLeft, akTop, akRight, akBottom]
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -32
      Font.Name = #38582#20070
      Font.Style = [fsBold]
      Lines.Strings = (
        '***** PL/0 Compiler Demo *****')
      ParentFont = False
      ReadOnly = True
      ScrollBars = ssBoth
      TabOrder = 0
    end
  end
  object GroupBox2: TGroupBox
    Left = 562
    Top = 136
    Width = 177
    Height = 57
    Anchors = [akTop, akRight]
    Caption = #21151#33021#38190
    TabOrder = 1
    DesignSize = (
      177
      57)
    object ButtonRun: TButton
      Left = 16
      Top = 16
      Width = 65
      Height = 25
      Anchors = [akTop, akRight]
      Caption = #36816#34892
      TabOrder = 0
      OnClick = ButtonRunClick
    end
    object Button2: TButton
      Left = 96
      Top = 16
      Width = 65
      Height = 25
      Anchors = [akTop, akRight]
      Caption = #28165#23631
      TabOrder = 1
      OnClick = Button2Click
    end
  end
  object GroupBox3: TGroupBox
    Left = 562
    Top = 208
    Width = 177
    Height = 65
    Anchors = [akTop, akRight]
    Caption = #25171#24320#28304#25991#20214
    TabOrder = 2
    DesignSize = (
      177
      65)
    object OpenFile: TButton
      Left = 8
      Top = 24
      Width = 57
      Height = 21
      Anchors = [akTop, akRight]
      Caption = #27983#35272
      TabOrder = 0
      OnClick = OpenFileClick
    end
    object EditName: TEdit
      Left = 72
      Top = 24
      Width = 97
      Height = 21
      Anchors = [akTop, akRight]
      AutoSize = False
      TabOrder = 1
    end
  end
  object GroupBox4: TGroupBox
    Left = 562
    Top = 288
    Width = 176
    Height = 161
    Anchors = [akTop, akRight]
    Caption = #20010#20154#20449#24687
    TabOrder = 3
    object Label1: TLabel
      Left = 56
      Top = 24
      Width = 57
      Height = 13
      AutoSize = False
      Caption = #36719#20214#19968#29677
    end
    object Label2: TLabel
      Left = 40
      Top = 48
      Width = 97
      Height = 13
      AutoSize = False
      Caption = #23398#21495':3104006937'
    end
    object Label3: TLabel
      Left = 48
      Top = 72
      Width = 89
      Height = 13
      AutoSize = False
      Caption = #35774#35745#32773':'#27946#28009#39034
    end
    object Label4: TLabel
      Left = 40
      Top = 96
      Width = 117
      Height = 13
      AutoSize = False
      Caption = #24320#22987#26102#38388':06.12.19'
    end
    object Label5: TLabel
      Left = 40
      Top = 120
      Width = 117
      Height = 13
      AutoSize = False
      Caption = #23436#25104#26102#38388':07.01.02'
    end
  end
  object ListSwitch: TRadioGroup
    Left = 562
    Top = 16
    Width = 177
    Height = 113
    Anchors = [akTop, akRight]
    Caption = #30446#26631#20195#30721
    ItemIndex = 0
    Items.Strings = (
      #26174#31034#20195#30721
      #19981#26159#26174#31034#20195#30721)
    TabOrder = 4
  end
  object OpenDialog: TOpenDialog
    Left = 408
    Top = 208
  end
end