unit1.~dfm

针对C++的简单词法分析器,局限性较大,算法简单,易懂,导入词法文件,输出分析结果

object Form1: TForm1
  Left = 315
  Top = 172
  Width = 697
  Height = 486
  Caption = 'Form1'
  Color = clMoneyGreen
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Memo1: TMemo
    Left = 0
    Top = 0
    Width = 689
    Height = 209
    Align = alTop
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    Lines.Strings = (
      '//Open Source File OR Type code here.')
    ParentFont = False
    ScrollBars = ssBoth
    TabOrder = 0
  end
  object Memo2: TMemo
    Left = 0
    Top = 208
    Width = 353
    Height = 241
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    Lines.Strings = (
      '//Scan result will be displayed here.')
    ParentFont = False
    ScrollBars = ssBoth
    TabOrder = 1
  end
  object Button1: TButton
    Left = 416
    Top = 224
    Width = 121
    Height = 33
    Caption = 'Open Source File'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 416
    Top = 320
    Width = 121
    Height = 33
    Caption = 'Save Scan Result'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 3
    OnClick = Button2Click
  end
  object Button3: TButton
    Left = 416
    Top = 272
    Width = 121
    Height = 33
    Caption = 'Scan'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 4
    OnClick = Button3Click
  end
  object Button4: TButton
    Left = 416
    Top = 368
    Width = 121
    Height = 33
    Caption = 'Clear Text'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 5
    OnClick = Button4Click
  end
  object Button5: TButton
    Left = 552
    Top = 408
    Width = 121
    Height = 33
    Caption = 'EXIT'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -24
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 6
    OnClick = Button5Click
  end
  object Edit1: TEdit
    Left = 546
    Top = 289
    Width = 121
    Height = 21
    TabOrder = 7
    Text = 'Edit1'
  end
  object Button6: TButton
    Left = 424
    Top = 408
    Width = 75
    Height = 25
    Caption = 'Button6'
    TabOrder = 8
  end
  object OpenDialog1: TOpenDialog
    Left = 600
    Top = 232
  end
  object SaveDialog1: TSaveDialog
    Left = 608
    Top = 328
  end
end