test_frm.dfm

中文分词算法,效率很高,使用词典树装搜索进行单词切割,并提供扩充词库的函数!

object Form1: TForm1
  Left = 299
  Top = 165
  BorderStyle = bsDialog
  Caption = 'Form1'
  ClientHeight = 335
  ClientWidth = 437
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 0
    Top = 0
    Width = 272
    Height = 308
    Align = alClient
    Caption = #21407#25991
    TabOrder = 0
    object Memo: TMemo
      Left = 2
      Top = 15
      Width = 268
      Height = 291
      Align = alClient
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      Lines.Strings = (
        'Memo')
      ScrollBars = ssVertical
      TabOrder = 0
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 308
    Width = 437
    Height = 27
    Align = alBottom
    TabOrder = 1
    object Btn_Load: TBitBtn
      Left = 0
      Top = 0
      Width = 134
      Height = 25
      Caption = #21152#36733#25991#26412
      TabOrder = 0
      OnClick = Btn_LoadClick
    end
    object Btn_Exequte: TBitBtn
      Left = 134
      Top = 0
      Width = 137
      Height = 25
      Caption = #20998#35789#22788#29702
      TabOrder = 1
    end
    object Btn_Output: TBitBtn
      Left = 272
      Top = 0
      Width = 164
      Height = 25
      Caption = #23548#20986
      TabOrder = 2
      OnClick = Btn_OutputClick
    end
  end
  object GroupBox2: TGroupBox
    Left = 272
    Top = 0
    Width = 165
    Height = 308
    Align = alRight
    Caption = #20998#35789#32467#26524
    TabOrder = 2
    object ListBox: TListBox
      Left = 2
      Top = 15
      Width = 161
      Height = 291
      Align = alClient
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      ItemHeight = 13
      TabOrder = 0
    end
  end
  object Open: TOpenDialog
    Left = 224
    Top = 16
  end
  object Save: TSaveDialog
    Left = 405
    Top = 16
  end
  object MainMenu1: TMainMenu
    object Options1: TMenuItem
      Caption = 'Options'
      object SetDictionary: TMenuItem
        Caption = 'Set Dictionary Path'
        OnClick = SetDictionaryClick
      end
      object SetDefaltSavePath: TMenuItem
        Caption = 'Set Defalt Save Path'
      end
      object SetDefaltLoadPath: TMenuItem
        Caption = 'Set Defalt Load Path'
      end
    end
  end
end