mainunit.dfm

简单编译器的源代码,是大学课程设计内容,附简单测试用例

object mainForm: TmainForm
  Left = -4
  Top = -4
  Width = 808
  Height = 580
  Caption = '编译原理课程设计---PL语言'
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  OnMouseMove = FormMouseMove
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object StatusBar: TStatusBar
    Left = 0
    Top = 515
    Width = 800
    Height = 19
    Panels = <
      item
        Text = ' 源程序正文当前行数'
        Width = 120
      end
      item
        Width = 50
      end
      item
        Width = 200
      end
      item
        Text = ' 运行提示'
        Width = 70
      end
      item
        Width = 50
      end>
    SimplePanel = False
  end
  object PageControl: TPageControl
    Left = 0
    Top = 72
    Width = 800
    Height = 443
    ActivePage = TabSheet6
    Align = alBottom
    TabOrder = 1
    OnMouseMove = PageControlMouseMove
    object TabSheet1: TTabSheet
      Caption = '源程序正文'
      object yuanchengcu: TRichEdit
        Left = 0
        Top = 0
        Width = 793
        Height = 416
        Align = alLeft
        Color = clInactiveCaptionText
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = '宋体'
        Font.Style = []
        Lines.Strings = (
          'begin'
          '   '
          'end.')
        ParentFont = False
        PlainText = True
        ScrollBars = ssBoth
        TabOrder = 0
        OnChange = yuanchengcuChange
        OnMouseMove = yuanchengcuMouseMove
        OnSelectionChange = yuanchengcuSelectionChange
      end
      object errpage: TPanel
        Left = 596
        Top = 0
        Width = 196
        Height = 416
        Align = alRight
        BevelOuter = bvNone
        TabOrder = 1
        object error: TRichEdit
          Left = 2
          Top = 0
          Width = 194
          Height = 416
          Anchors = [akLeft, akTop, akRight, akBottom]
          Color = cl3DLight
          ReadOnly = True
          ScrollBars = ssVertical
          TabOrder = 0
        end
      end
    end
    object TabSheet2: TTabSheet
      Caption = '词法分析代码序列输出'
      ImageIndex = 1
      object cifafenxishuchu: TRichEdit
        Left = 0
        Top = 0
        Width = 792
        Height = 416
        Align = alClient
        Color = clInactiveCaptionText
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        PlainText = True
        ScrollBars = ssBoth
        TabOrder = 0
        WordWrap = False
        OnMouseMove = cifafenxishuchuMouseMove
      end
    end
    object TabSheet3: TTabSheet
      Caption = '语法语义分析代码序列输出'
      ImageIndex = 2
      object yufayuyifenxishuchu: TRichEdit
        Left = 0
        Top = 0
        Width = 792
        Height = 416
        Align = alClient
        Color = clInactiveCaptionText
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        PlainText = True
        ScrollBars = ssBoth
        TabOrder = 0
        WordWrap = False
        OnMouseMove = yufayuyifenxishuchuMouseMove
      end
    end
    object TabSheet4: TTabSheet
      Caption = '汇编代码生成输出'
      ImageIndex = 3
      object mubiaodaimashuchu: TRichEdit
        Left = 0
        Top = 0
        Width = 792
        Height = 416
        Align = alClient
        Color = clInactiveCaptionText
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        PlainText = True
        ScrollBars = ssBoth
        TabOrder = 0
        WordWrap = False
        OnMouseMove = mubiaodaimashuchuMouseMove
      end
    end
    object TabSheet5: TTabSheet
      Caption = '最终结果显示输出'
      ImageIndex = 4
      object result: TMemo
        Left = 0
        Top = 0
        Width = 792
        Height = 416
        Align = alClient
        Color = clActiveBorder
        Font.Charset = GB2312_CHARSET
        Font.Color = clWhite
        Font.Height = -14
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        ReadOnly = True
        ScrollBars = ssBoth
        TabOrder = 0
        WordWrap = False
        OnMouseMove = resultMouseMove
      end
    end
    object TabSheet6: TTabSheet
      Caption = '帮助说明'
      ImageIndex = 5
      object help: TRichEdit
        Left = 0
        Top = 0
        Width = 792
        Height = 416
        Align = alClient
        Color = clInactiveCaptionText
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = '宋体'
        Font.Style = []
        Lines.Strings = (
          ''
          ''
          '    计算机系97级2班 陈克 伍珍贞  学号：972114217  972114216')
        ParentFont = False
        PlainText = True
        ScrollBars = ssBoth
        TabOrder = 0
        WordWrap = False
        OnMouseMove = cifafenxishuchuMouseMove
      end
    end
  end
  object CoolBar1: TCoolBar
    Left = 0
    Top = 0
    Width = 800
    Height = 65
    Bands = <>
    object SpeedButton1: TSpeedButton
      Left = 5
      Top = 2
      Width = 60
      Height = 57
      Caption = '词法分析'
      Glyph.Data = {
        16020000424D160200000000000076000000280000001B0000001A0000000100
        040000000000A001000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
        7777777777777770000077777777777777777777777777700000777777777777
        7777777777777770000077000000000000000000000007700000778F7F7F7F7F
        7F7F7F7F7F7F07700000778FF7F7F7F7F7F7F7F7F7F707700000778F7F7F7F7F
        7F7F7F7F7F7F07700000778FF7F7F7CCCCC7CCC7F7F707700000778F7F7F7F7F
        7F7F7F7F7F7F07700000778FF7F7F7CCC7CCC7F7F7F707700000778F7F7F7F7F
        7F7F7F7F9B9F07700000778FF7F7F7F7F7F7F7F7B9B707700000778F7F7F7F7F
        7F7F7F7F9B9F07700000778FF7F7F7F7F7F7F887B9B707700000778FFFF888FF
        FFFF0088FFFF0770000077888700088888807B08888807700000777770B7B088
        8807B7B088777770000077773F7B7B000003737008777770000077773F0FB7B7
        B7B7B7B708777770000077773F007BFFFFFFFFFF07777770000077773FB7BF33
        33333333777777700000777773FFF37777777777777777700000777777333777
        7777777777777770000077777777777777777777777777700000777777777777
        7777777777777770000077777777777777777777777777700000}
      Layout = blGlyphTop
      OnClick = BitBtn1Click
    end
    object SpeedButton2: TSpeedButton
      Left = 65
      Top = 2
      Width = 62
      Height = 57
      Hint = '语法、语义分析'
      Caption = '语法分析'
      Glyph.Data = {
        96010000424D9601000000000000760000002800000018000000180000000100
        0400000000002001000000000000000000001000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
        777777777777F88888888888888888888887F88888888888888888888887F804
        04040404040404040887F84333333333333333334887F887BBBBBBBBBBBBBBB7
        8887F8887B3B3B3B3B3B3B788887F88000000000000000008887F88088888888
        888888808887F88088FFFFF888FFFF808887F880878888F887888F808887F880
        87888800888888808887F8808788887B008888808887F880878888F791088880
        8887F88087777787F91088808887F880888888887F9108808887F88000000000
        07F910008887F88066666666667F91008887F880000000000007F9108887F888
        8888888888887FF70887F88888888888888887FF7087F88888888888888888D5
        D587F888888888888888888D5887FFFFFFFFFFFFFFFFFFFFFFF7}
      Layout = blGlyphTop
      ParentShowHint = False
      ShowHint = True
      OnClick = BitBtn2Click
    end
    object SpeedButton3: TSpeedButton
      Left = 127
      Top = 2
      Width = 60
      Height = 57
      Caption = '汇编代码'
      Glyph.Data = {
        96010000424D9601000000000000760000002800000018000000180000000100
        04000000000020010000CE0E0000C40E00001000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00877777777777
        777777777777F44444444444444440444447F43333333333333303333347F773
        73737373737037300087F83BBBBBBBBBBBBB000B4C87F883B3B3B3B3B3B3B3B4
        C087F888333333333333444C0887F88888888888888467C08887F88888877777
        7774F6708887F88888F8888888848F807887F88700000066666600087887F870
        7777770870E8E8687887F80774444444408E8E687887F8074777777400E8E868
        7887F07948888880788E8E687887F0444444770870E8E8687887F078888000FE
        8E8E8E687887F70000086FEFE8E8E8687887F08888F86EFEFE8E8E687887F888
        88F84444444444487887F88888F88888888888887887F888888FFFFFFFFFFFFF
        8887F88888888888888888888887FFFFFFFFFFFFFFFFFFFFFFF8}
      Layout = blGlyphTop
      OnClick = BitBtn3Click
    end
    object SpeedButton4: TSpeedButton
      Left = 187
      Top = 2
      Width = 61
      Height = 57
      Caption = '解释执行'
      Glyph.Data = {
        96010000424D9601000000000000760000002800000018000000180000000100
        04000000000020010000CE0E0000C40E00001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00788888888888
        888888888888F77FFFFFFFFFFFF887777778F77F8888888FFFF888777778F77F
        FFFFFFFFFFF887878778F77F8888888888F888787878F77FFFFFFFFFFFF88787
        8788F77F8888888888F888787878F77FFFFFFFFFFFF800000008F77FFF888888
        88F833333338F77FFFFFFFFFFFF83BBBBBB8F77FFFFFFFFFFFF888888888F777
        777777777778BBBBB878F777777877778BBBBBBBB878F77777F877778BB8B888
        B888F77777F877768BBBBBBBB848F77787F8788C8B8B8888B8C8F777F8F8F78C
        8BBBBBBBB8C8F7888FFF888CCCCD555666C8FFFFFFFFFFFCCCCD555E6668F777
        8FFF8776CCCB55BB6C78F777F7F8F877CC8BD5B86C78F77777F87777CC77BB87
        6678F77777F87777667778777778FFFFFFFFFFFFFFFFFFFFFFF7}
      Layout = blGlyphTop
      OnClick = BitBtn4Click
    end
    object SpeedButton6: TSpeedButton
      Left = 249
      Top = 2
      Width = 62
      Height = 57
      Caption = '退  出'
      Glyph.Data = {
        96010000424D9601000000000000760000002800000018000000180000000100
        04000000000020010000CE0E0000C40E00001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00788888888888
        888888888888F77777777777777777777778F77777700000000000007778F777
        77700BFBFBFBFBF07778F777777080BFBFBFBFBF0778F7777770B0FBFBFBFBFB
        0778F777777080BFBFBFBFBF0778F7777880B80BFBFBFBFBF078F77700008B0F
        BFBFBFBFB078F7770FA0B800000000000078F7770AF08B8B8B0AEA0B0078F777
        0FA000B8B000AEA0A078F7770AFAF80008870AEAE078F7770FAFAFAFA08770AE
        A078F7778FFAFAFAF0870AEAE078F7778FAFAFA2207000000078F77F8FFFFA00
        007777777778F777FFFFAF0F077777777778FFFFFFFAFA00777777777778F777
        FFF80007777777777778F77F7F7F7777777777777778F7777F77777777777777
        7778F7777F777777777777777778FFFFFFFFFFFFFFFFFFFFFFF7}
      Layout = blGlyphTop
      OnClick = SpeedButton6Click
    end
  end
  object MainMenu1: TMainMenu
    AutoHotkeys = maManual
    Left = 630
    Top = 33
    object F1: TMenuItem
      Caption = '文件'
      object N1: TMenuItem
        Caption = '新建(&N)'
        ImageIndex = 0
        OnClick = newButtonClick
      end
      object O1: TMenuItem
        Caption = '打开(&O)'
        ImageIndex = 1
        OnClick = OpenButtonClick
      end
      object S1: TMenuItem
        Caption = '保存(&S)'
        ImageIndex = 2
        OnClick = SaveButtonClick
      end
    end
    object K1: TMenuItem
      Caption = '运行'
      object N18: TMenuItem
        Caption = '直接运行(&R)'
        ImageIndex = 8
        ShortCut = 120
        OnClick = runClick
      end
      object N19: TMenuItem
        Caption = '-'
      end
      object N20: TMenuItem
        Caption = '词法分析'
        OnClick = BitBtn1Click
      end
      object N21: TMenuItem
        Caption = '语法、语义分析'
        OnClick = BitBtn2Click
      end
      object N22: TMenuItem
        Caption = '汇编代码生成'
        OnClick = BitBtn3Click
      end
      object N23: TMenuItem
        Caption = '解释执行'
        OnClick = BitBtn4Click
      end
    end
    object N2: TMenuItem
      Caption = '说明'
      object N5: TMenuItem
        Caption = '帮助'
      end
    end
    object N3: TMenuItem
      Caption = '退出'
      OnClick = N3Click
    end
  end
  object OpenDialog: TOpenDialog
    DefaultExt = 'ps'
    Filter = 'PL项目文件 (*.pl)|*.pl|所有文件 (*.*)|*.*'
    Left = 598
    Top = 30
  end
  object SaveDialog: TSaveDialog
    DefaultExt = 'ps'
    Filter = 'PL项目文件 (*.pl)|*.pl'
    Options = [ofOverwritePrompt, ofHideReadOnly, ofEnableSizing]
    Left = 662
    Top = 30
  end
end