parserfm.~dfm

使用delphi编程语言实现单词解析器

object Form1: TForm1
  Left = 205
  Top = 113
  Width = 456
  Height = 252
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 8
    Top = 56
    Width = 96
    Height = 39
    Caption = #35831#22312#19979#38754#30340#36755#20837#26694#37324#36755#20837#35201#28155#21152#30340#25110#32773#26597#25214#30340#21333#35789
    WordWrap = True
  end
  object Label2: TLabel
    Left = 8
    Top = 8
    Width = 288
    Height = 13
    Caption = #35831#22312#19979#38754#30340#36755#20837#26694#37324#36755#20837#33521#25991#21333#35789#24207#21015#65292#19981#35201#36755#20837#26631#28857
  end
  object EdtInput: TEdit
    Left = 8
    Top = 24
    Width = 433
    Height = 21
    TabOrder = 0
  end
  object BtnAdd: TButton
    Left = 360
    Top = 64
    Width = 75
    Height = 49
    Caption = #28155#21152
    TabOrder = 1
    OnClick = BtnAddClick
  end
  object LBWords: TListBox
    Left = 208
    Top = 64
    Width = 121
    Height = 153
    ItemHeight = 13
    MultiSelect = True
    TabOrder = 2
  end
  object BtnAddWord: TButton
    Left = 128
    Top = 64
    Width = 65
    Height = 25
    Caption = #28155#21152#21333#35789
    TabOrder = 3
    OnClick = BtnAddWordClick
  end
  object BtnDelWord: TButton
    Left = 128
    Top = 128
    Width = 65
    Height = 25
    Caption = #21024#38500#21333#35789
    TabOrder = 4
    OnClick = BtnDelWordClick
  end
  object EdtInputWord: TEdit
    Left = 8
    Top = 104
    Width = 89
    Height = 21
    TabOrder = 5
  end
  object BtnFindWord: TButton
    Left = 128
    Top = 96
    Width = 65
    Height = 25
    Caption = #26597#25214#21333#35789
    TabOrder = 6
    OnClick = BtnFindWordClick
  end
  object BtnSort: TButton
    Left = 128
    Top = 160
    Width = 65
    Height = 25
    Caption = #25490#24207
    TabOrder = 7
    OnClick = BtnSortClick
  end
  object BtnClearAll: TButton
    Left = 128
    Top = 192
    Width = 65
    Height = 25
    Caption = #28165#31354
    TabOrder = 8
    OnClick = BtnClearAllClick
  end
  object RGSort: TRadioGroup
    Left = 16
    Top = 136
    Width = 73
    Height = 73
    Caption = #26159#21542#25490#24207' '
    Items.Strings = (
      #25490#24207
      #19981#25490#24207)
    TabOrder = 9
  end
end