dtob.dfm

十进制数与二进制数的互相转换 编程练习

object Form1: TForm1
  Left = 194
  Top = 133
  Width = 693
  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 = 168
    Top = 16
    Width = 378
    Height = 29
    Caption = #21313#36827#21046#25968#19982#20108#36827#21046#25968#30340#20114#30456#36716#25442
    Font.Charset = GB2312_CHARSET
    Font.Color = clGreen
    Font.Height = -27
    Font.Name = #21326#25991#34892#26999
    Font.Style = []
    ParentFont = False
  end
  object Label2: TLabel
    Left = 40
    Top = 80
    Width = 210
    Height = 29
    Caption = #35831#36755#20837#21313#36827#21046#25968
    Font.Charset = GB2312_CHARSET
    Font.Color = clNavy
    Font.Height = -29
    Font.Name = #38582#20070
    Font.Style = []
    ParentFont = False
  end
  object Label3: TLabel
    Left = 376
    Top = 80
    Width = 240
    Height = 29
    Caption = #36716#25442#24471#30340#20108#36827#21046#25968
    Font.Charset = GB2312_CHARSET
    Font.Color = clNavy
    Font.Height = -29
    Font.Name = #38582#20070
    Font.Style = []
    ParentFont = False
  end
  object Label4: TLabel
    Left = 55
    Top = 196
    Width = 210
    Height = 29
    Caption = #35831#36755#20837#20108#36827#21046#25968
    Font.Charset = GB2312_CHARSET
    Font.Color = clNavy
    Font.Height = -29
    Font.Name = #38582#20070
    Font.Style = []
    ParentFont = False
  end
  object Label5: TLabel
    Left = 427
    Top = 196
    Width = 240
    Height = 29
    Caption = #36716#25442#24471#30340#21313#36827#21046#25968
    Font.Charset = GB2312_CHARSET
    Font.Color = clNavy
    Font.Height = -29
    Font.Name = #38582#20070
    Font.Style = []
    ParentFont = False
  end
  object DTOB: TButton
    Left = 220
    Top = 116
    Width = 100
    Height = 30
    Caption = #36716#25442'>>'
    Font.Charset = GB2312_CHARSET
    Font.Color = clNavy
    Font.Height = -29
    Font.Name = #38582#20070
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    OnClick = DTOBClick
  end
  object Edit_D: TEdit
    Left = 64
    Top = 115
    Width = 124
    Height = 32
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -21
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    Text = 'MLength=10'
    OnKeyUp = Edit_DKeyUp
    OnMouseUp = Edit_DMouseUp
  end
  object Out_B: TEdit
    Left = 336
    Top = 115
    Width = 337
    Height = 32
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -21
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ReadOnly = True
    TabOrder = 2
  end
  object BTOD: TButton
    Left = 358
    Top = 236
    Width = 100
    Height = 30
    Caption = #36716#25442'>>'
    Font.Charset = GB2312_CHARSET
    Font.Color = clNavy
    Font.Height = -29
    Font.Name = #38582#20070
    Font.Style = []
    ParentFont = False
    TabOrder = 3
    OnClick = BTODClick
  end
  object Out_D: TEdit
    Left = 492
    Top = 234
    Width = 133
    Height = 32
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -21
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ReadOnly = True
    TabOrder = 4
  end
  object Edit_B: TEdit
    Left = 8
    Top = 235
    Width = 337
    Height = 32
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -21
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 5
    Text = 'MLength=31'
    OnKeyUp = Edit_BKeyUp
    OnMouseUp = Edit_BMouseUp
  end
end