main.~dfm

~~~ ~~在编译原理实验中,用Delphi实现词法分析的实现

object MainForm: TMainForm
  Left = 189
  Top = 109
  Width = 609
  Height = 466
  Caption = 'MDI Application'
  Color = clAppWorkSpace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'Default'
  Font.Style = []
  FormStyle = fsMDIForm
  Menu = MainMenu1
  OldCreateOrder = False
  Position = poDefault
  WindowMenu = Window1
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter
    Left = 0
    Top = 30
    Height = 365
  end
  object Splitter2: TSplitter
    Left = 188
    Top = 30
    Height = 365
  end
  object StatusBar: TStatusBar
    Left = 0
    Top = 395
    Width = 601
    Height = 25
    AutoHint = True
    Panels = <>
    SimplePanel = True
  end
  object ToolBar2: TToolBar
    Left = 0
    Top = 0
    Width = 601
    Height = 30
    BorderWidth = 1
    Color = clBtnFace
    Images = ImageList1
    Indent = 5
    ParentColor = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 1
    Wrapable = False
    object ToolButton9: TToolButton
      Left = 5
      Top = 2
      Action = FileNew1
    end
    object ToolButton1: TToolButton
      Left = 28
      Top = 2
      Action = FileOpen1
    end
    object ToolButton2: TToolButton
      Left = 51
      Top = 2
      Action = FileSave1
    end
    object ToolButton3: TToolButton
      Left = 74
      Top = 2
      Width = 8
      Caption = 'ToolButton3'
      ImageIndex = 2
      Style = tbsSeparator
    end
    object ToolButton4: TToolButton
      Left = 82
      Top = 2
      Action = EditCut1
    end
    object ToolButton5: TToolButton
      Left = 105
      Top = 2
      Action = EditCopy1
    end
    object ToolButton6: TToolButton
      Left = 128
      Top = 2
      Action = EditPaste1
    end
    object ToolButton7: TToolButton
      Left = 151
      Top = 2
      Width = 8
      Caption = 'ToolButton7'
      ImageIndex = 3
      Style = tbsSeparator
    end
    object ToolButton8: TToolButton
      Left = 159
      Top = 2
      Action = WindowCascade1
    end
    object ToolButton10: TToolButton
      Left = 182
      Top = 2
      Action = WindowTileHorizontal1
    end
    object ToolButton11: TToolButton
      Left = 205
      Top = 2
      Action = WindowTileVertical1
    end
  end
  object Panel1: TPanel
    Left = 3
    Top = 30
    Width = 185
    Height = 365
    Align = alLeft
    TabOrder = 2
    object Memo1: TMemo
      Left = 9
      Top = 9
      Width = 152
      Height = 152
      Lines.Strings = (
        'program'
        'va'
        'integer'
        'bool'
        'real'
        'char'
        'const'
        'begin'
        'if'
        'then'
        'else'
        'while'
        'do'
        'repeat'
        'until'
        'for'
        'to'
        'end'
        'read'
        'write'
        'true'
        'false'
        'not'
        'and'
        'or'
        '+'
        '-'
        '*'
        '/'
        '<'
        '>'
        '<='
        '>='
        '='
        ':='
        'id'
        #25972#24120#25968
        #23454#24120#25968
        #23383#31526#24120#25968
        #24067#23572#24120#25968
        ';'
        ','
        #39
        '"'
        '/*'
        '*/'
        ':'
        '('
        ')'
        '.')
      TabOrder = 0
    end
    object Memo2: TMemo
      Left = 1
      Top = 1
      Width = 183
      Height = 363
      Align = alClient
      ScrollBars = ssBoth
      TabOrder = 1
    end
  end
  object Panel2: TPanel
    Left = 191
    Top = 30
    Width = 410
    Height = 365
    Align = alClient
    Caption = 'Panel2'
    TabOrder = 3
    object Splitter3: TSplitter
      Left = 1
      Top = 185
      Width = 408
      Height = 3
      Cursor = crVSplit
      Align = alTop
    end
    object Panel3: TPanel
      Left = 1
      Top = 1
      Width = 408
      Height = 184
      Align = alTop
      TabOrder = 0
      object Memo3: TMemo
        Left = 1
        Top = 1
        Width = 406
        Height = 182
        Align = alClient
        ScrollBars = ssVertical
        TabOrder = 0
      end
    end
    object Memo4: TMemo
      Left = 1
      Top = 188
      Width = 408
      Height = 176
      Align = alClient
      ScrollBars = ssVertical
      TabOrder = 1
    end
  end
  object MainMenu1: TMainMenu
    Images = ImageList1
    Left = 568
    Top = 40
    object File1: TMenuItem
      Caption = #25991#20214
      Hint = 'File related commands'
      object FileNewItem: TMenuItem
        Action = FileNew1
        Caption = #26032#24314
      end
      object FileOpenItem: TMenuItem
        Action = FileOpen1
        Caption = #25171#24320
      end
      object FileCloseItem: TMenuItem
        Action = FileClose1
        Caption = #20851#38381
      end
      object FileSaveItem: TMenuItem
        Action = FileSave1
        Caption = #20445#23384
      end
      object FileSaveAsItem: TMenuItem
        Action = FileSaveAs1
        Caption = #21478#23384#20026
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object FileExitItem: TMenuItem
        Action = FileExit1
        Caption = #36864#20986
      end
    end
    object Edit1: TMenuItem
      Caption = #32534#36753
      Hint = 'Edit commands'
      object CutItem: TMenuItem
        Action = EditCut1
        Caption = #21098#20999
      end
      object CopyItem: TMenuItem