untmain.dfm

此程序实现对汉明码的编码与译码算法。汉明码是一种多重（复式）奇偶检错系统。它将信息用逻辑形式编码

object frmMain: TfrmMain
  Left = 0
  Top = 0
  ActiveControl = edtInputR
  BorderStyle = bsDialog
  Caption = #20449#24687#19982#32534#30721#35838#31243#35774#35745' - '#27721#26126#30721' DEMO'
  ClientHeight = 268
  ClientWidth = 484
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  PixelsPerInch = 96
  TextHeight = 12
  object Label1: TLabel
    Left = 36
    Top = 27
    Width = 18
    Height = 12
    Caption = 'r ='
  end
  object Label2: TLabel
    Left = 36
    Top = 53
    Width = 18
    Height = 12
    Caption = 'q ='
  end
  object Label3: TLabel
    Left = 134
    Top = 27
    Width = 48
    Height = 12
    Caption = #21407#30721' x ='
  end
  object Label4: TLabel
    Left = 134
    Top = 53
    Width = 48
    Height = 12
    Caption = #35793#30721' x'#39'='
  end
  object Label5: TLabel
    Left = 27
    Top = 144
    Width = 27
    Height = 25
    Caption = 'H ='
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -21
    Font.Name = 'Arial Narrow'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object edtReceiveOutput: TEdit
    Left = 188
    Top = 50
    Width = 165
    Height = 20
    ReadOnly = True
    TabOrder = 3
  end
  object mmoHamOutput: TMemo
    Left = 60
    Top = 84
    Width = 401
    Height = 159
    ReadOnly = True
    ScrollBars = ssBoth
    TabOrder = 6
  end
  object btnMakeHam: TButton
    Left = 364
    Top = 22
    Width = 97
    Height = 25
    Enabled = False
    TabOrder = 4
    OnClick = btnMakeHamClick
  end
  object btnCompute: TButton
    Left = 364
    Top = 48
    Width = 97
    Height = 25
    Caption = #35745#31639#35793#30721
    Enabled = False
    TabOrder = 5
    OnClick = btnComputeClick
  end
  object edtInputR: TMaskEdit
    Left = 60
    Top = 24
    Width = 54
    Height = 20
    EditMask = '!9;1;_'
    MaxLength = 1
    TabOrder = 0
    Text = ' '
    OnChange = pInputValueChange
    OnEnter = pInputEnter
  end
  object edtInputQ: TMaskEdit
    Left = 60
    Top = 50
    Width = 54
    Height = 20
    EditMask = '!9;1;_'
    MaxLength = 1
    TabOrder = 1
    Text = ' '
    OnChange = pInputValueChange
    OnEnter = pInputEnter
  end
  object edtReceive: TMaskEdit
    Left = 188
    Top = 24
    Width = 164
    Height = 20
    Enabled = False
    TabOrder = 2
    OnEnter = pReceiveEnter
  end
  object xpMain: TXPManifest
    Left = 12
    Top = 56
  end
end