main.dfm

给出了基于神经网络的手写体数字的识别程序

object RecogForm: TRecogForm
  Left = 36
  Top = 83
  Width = 1003
  Height = 717
  Caption = #22522#20110#31070#32463#32593#32476#30340#25163#20889#25968#23383#35782#21035#31995#32479
  Color = clSilver
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {
    0000010001001010100000000000280100001600000028000000100000002000
    00000100040000000000C0000000000000000000000000000000000000000000
    000000008000008000000080800080000000800080008080000080808000C0C0
    C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
    0000000000000000000000000000000000000000000000000099900000C00000
    99CCC9900C00CCC99C000C90C0000009C00000C90000CCC9C00000C9CCCC0009
    C00000C90000CCC99C000C90C000000099CCC9900C0000000099900000C00000
    000000000000000000000000000000000000000000000000000000000000FFFF
    0000FFFF0000FFFF0000FC7D0000F01B000003970000E7CF000007C00000E7CF
    000003970000F01B0000FC7D0000FFFF0000FFFF0000FFFF0000FFFF0000}
  Menu = MainMenu1
  OldCreateOrder = False
  WindowState = wsMaximized
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object FeatureImage: TImage
    Left = 16
    Top = 432
    Width = 177
    Height = 209
  end
  object FeatureImageLabel: TLabel
    Left = 40
    Top = 384
    Width = 112
    Height = 16
    Caption = #22270#20687#29305#24449#33539#22260#65306
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Label2: TLabel
    Left = 240
    Top = 384
    Width = 104
    Height = 16
    Caption = '8*8'#29305#24449#22270#20687#65306
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object GroupBox3: TGroupBox
    Left = 16
    Top = 48
    Width = 345
    Height = 329
    Caption = #22270#20687#36755#20837
    TabOrder = 29
    object InputNumberLabel: TLabel
      Left = 104
      Top = 8
      Width = 100
      Height = 24
      Caption = #36755#20837#25968#23383#65306
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
  end
  object GroupBox2: TGroupBox
    Left = 408
    Top = 48
    Width = 537
    Height = 329
    Caption = #27169#26495#26174#31034
    TabOrder = 28
    object Label5: TLabel
      Left = 24
      Top = 24
      Width = 48
      Height = 20
      Caption = #36215#22987#65306
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object StartIndexDisplayEdit: TEdit
      Left = 72
      Top = 24
      Width = 33
      Height = 21
      TabOrder = 0
    end
    object ReplaceButton: TButton
      Left = 168
      Top = 24
      Width = 41
      Height = 25
      Caption = #26367#20195
      TabOrder = 1
      OnClick = ReplaceButtonClick
    end
    object IndexDisplayEdit2: TEdit
      Left = 152
      Top = 56
      Width = 33
      Height = 21
      TabOrder = 2
    end
    object IndexDisplayEdit6: TEdit
      Left = 48
      Top = 192
      Width = 33
      Height = 21
      TabOrder = 3
    end
    object IndexDisplayEdit7: TEdit
      Left = 152
      Top = 192
      Width = 33
      Height = 21
      TabOrder = 4
    end
    object IndexDisplayEdit1: TEdit
      Left = 48
      Top = 56
      Width = 33
      Height = 21
      TabOrder = 5
    end
    object IndexDisplayEdit3: TEdit
      Left = 256
      Top = 56
      Width = 33
      Height = 21
      TabOrder = 6
    end
    object IndexDisplayEdit4: TEdit
      Left = 360
      Top = 56
      Width = 33
      Height = 21
      TabOrder = 7
    end
    object IndexDisplayEdit5: TEdit
      Left = 464
      Top = 56
      Width = 33
      Height = 21
      TabOrder = 8
    end
    object IndexDisplayEdit8: TEdit
      Left = 256
      Top = 192
      Width = 33
      Height = 21
      TabOrder = 9
    end
    object IndexDisplayEdit9: TEdit
      Left = 360
      Top = 192
      Width = 33
      Height = 21
      TabOrder = 10
    end
    object IndexDisplayEdit10: TEdit
      Left = 464
      Top = 192
      Width = 33
      Height = 21
      TabOrder = 11
    end
    object IndexDisplayButton: TButton
      Left = 120
      Top = 24
      Width = 41
      Height = 25
      Caption = #26174#31034
      TabOrder = 12
      OnClick = IndexDisplayButtonClick
    end
  end
  object GroupBox1: TGroupBox
    Left = 688
    Top = 392
    Width = 257
    Height = 213
    Caption = #27169#29256#23398#20064
    TabOrder = 27
    object Label1: TLabel
      Left = 8
      Top = 89
      Width = 64
      Height = 16
      Caption = #25968#23383'  0--9'#65306
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object NumberIndexLabel: TLabel
      Left = 8
      Top = 129
      Width = 60
      Height = 16
      Caption = #27169#26495#24207#21495#65306
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Button3: TButton
      Left = 184
      Top = 128
      Width = 65
      Height = 25
      Caption = #27169#26495#25490#24207
      TabOrder = 0
      OnClick = Button3Click
    end
  end
  object Panel1: TPanel
    Left = 64
    Top = 88
    Width = 249
    Height = 241
    BevelOuter = bvNone
    Color = clWhite
    TabOrder = 0
    object StretchImage: TImage
      Left = 0
      Top = 0
      Width = 249
      Height = 241
      Align = alClient
      OnMouseDown = StretchImageMouseDown
      OnMouseMove = StretchImageMouseMove
      OnMouseUp = StretchImageMouseUp
    end
  end
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 995
    Height = 43
    ButtonHeight = 36
    ButtonWidth = 55
    Caption = 'ToolBar1'
    Color = clBtnFace
    DisabledImages = ImageList1
    Images = ImageList1
    ParentColor = False
    ShowCaptions = True
    TabOrder = 1
    object ToolButton1: TToolButton
      Left = 0
      Top = 2
      Caption = #22270#29255
      ImageIndex = 0
      OnClick = ToolButton1Click
    end
    object ToolButton2: TToolButton
      Left = 55
      Top = 2
      Caption = #25163#20889
      ImageIndex = 1
      OnClick = ToolButton2Click
    end
    object ToolButton8: TToolButton
      Left = 110
      Top = 2
      Width = 8
      Caption = 'ToolButton8'
      ImageIndex = 4
      Style = tbsSeparator