unit1.~dfm

获取汉字拼音的首字母（缩写）

object Form1: TForm1
  Left = 207
  Top = 171
  Width = 586
  Height = 332
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 4
    Top = 264
    Width = 571
    Height = 16
    AutoSize = False
    Caption = #27880#65306#26377#37096#20998#27721#23383#26174#31034#19981#20986#26469#65292#30446#21069#21457#29616#30340#26377#19968#20010'<'#23398'>'#23383#65292#36716#25442#31639#27861#26377#24453#23436#21892#65281
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clMaroon
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object GroupBox1: TGroupBox
    Left = 12
    Top = 22
    Width = 193
    Height = 219
    Caption = #33719#21462#21333#20010#27721#23383#25340#38899#39318#23383#27597
    TabOrder = 0
    object Label3: TLabel
      Left = 21
      Top = 162
      Width = 151
      Height = 25
      AutoSize = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -19
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Edit1: TEdit
      Left = 19
      Top = 40
      Width = 153
      Height = 25
      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
      MaxLength = 2
      TabOrder = 0
      Text = #20013
      OnChange = Button1Click
    end
    object Button1: TButton
      Left = 20
      Top = 104
      Width = 146
      Height = 33
      Caption = #33719#21462#21333#20010#27721#23383#25340#38899#32553#20889
      TabOrder = 1
      OnClick = Button1Click
    end
  end
  object GroupBox2: TGroupBox
    Left = 220
    Top = 22
    Width = 337
    Height = 219
    Caption = #33719#21462#22810#20010#27721#23383#25340#38899#39318#23383#27597
    TabOrder = 1
    object Button2: TButton
      Left = 88
      Top = 94
      Width = 158
      Height = 33
      Caption = #33719#21462#22810#20010#27721#23383#25340#38899#32553#20889
      TabOrder = 0
      OnClick = Button2Click
    end
    object edit2: TMemo
      Left = 16
      Top = 24
      Width = 305
      Height = 57
      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
      Lines.Strings = (
        #20013#22269#20154#27665#20849#21644#22269#23665#35199#30465#22826#21407#24066#22826#21407#29702#24037#35745#31639#26426#24212#29992#25216#26415)
      TabOrder = 1
      OnChange = Button2Click
    end
    object memo2: TMemo
      Left = 16
      Top = 144
      Width = 305
      Height = 57
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
      ParentFont = False
      TabOrder = 2
    end
  end
end