main.dfm

这是我给学生讲IEEE754浮点数机内表示时编的一个小程序

object Form1: TForm1
  Left = 210
  Top = 173
  BorderStyle = bsDialog
  Caption = #28014#28857#25968#26426#20869#34920#31034#27861
  ClientHeight = 270
  ClientWidth = 412
  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 = 107
    Top = 112
    Width = 33
    Height = 16
    AutoSize = False
    Caption = #38454#30721
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clRed
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label2: TLabel
    Left = 76
    Top = 112
    Width = 17
    Height = 33
    AutoSize = False
    Caption = #31526#21495
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    WordWrap = True
  end
  object Label3: TLabel
    Left = 96
    Top = 128
    Width = 57
    Height = 16
    Alignment = taCenter
    AutoSize = False
    Caption = '133(6)'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clRed
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label4: TLabel
    Left = 216
    Top = 112
    Width = 57
    Height = 33
    Alignment = taCenter
    AutoSize = False
    Caption = #23614#30721
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    WordWrap = True
  end
  object Label5: TLabel
    Left = 8
    Top = 24
    Width = 48
    Height = 13
    Caption = #28014#28857#25968#65306
  end
  object Label6: TLabel
    Left = 8
    Top = 56
    Width = 48
    Height = 26
    Caption = #23545#24212#20108#36827#21046#34920#31034#65306
    WordWrap = True
  end
  object Label7: TLabel
    Left = 8
    Top = 152
    Width = 48
    Height = 26
    Caption = #26426#20869#34920#31034#27861#65306
    WordWrap = True
  end
  object Label8: TLabel
    Left = 120
    Top = 232
    Width = 68
    Height = 16
    Caption = 'Excess 127'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clOlive
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Button1: TButton
    Left = 200
    Top = 232
    Width = 75
    Height = 25
    Caption = #35745#31639
    TabOrder = 0
    OnClick = Button1Click
  end
  object Edit1: TEdit
    Left = 72
    Top = 16
    Width = 329
    Height = 21
    TabOrder = 1
    Text = '123.4567'
    OnChange = Edit1Change
  end
  object RichEdit1: TRichEdit
    Left = 72
    Top = 144
    Width = 329
    Height = 65
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = 'Times New Roman'
    Font.Style = []
    Lines.Strings = (
      '0 10000101 11101101110100111010101')
    ParentFont = False
    ReadOnly = True
    TabOrder = 2
  end
  object Memo1: TMemo
    Left = 72
    Top = 48
    Width = 329
    Height = 49
    Lines.Strings = (
      '1111011.011101001110101001001010100011000001010'
      '1010011')
    TabOrder = 3
    OnChange = Memo1Change
  end
  object RadioButton1: TRadioButton
    Left = 48
    Top = 224
    Width = 65
    Height = 17
    Caption = #21333#31934#24230
    Checked = True
    TabOrder = 4
    TabStop = True
    OnClick = RadioButton1Click
  end
  object RadioButton2: TRadioButton
    Left = 48
    Top = 240
    Width = 65
    Height = 17
    Caption = #21452#31934#24230
    TabOrder = 5
    OnClick = RadioButton2Click
  end
  object Button2: TButton
    Left = 200
    Top = 232
    Width = 75
    Height = 25
    Caption = #35745#31639
    TabOrder = 6
    Visible = False
    OnClick = Button2Click
  end
  object Edit2: TEdit
    Left = 288
    Top = 216
    Width = 113
    Height = 21
    ReadOnly = True
    TabOrder = 7
    Text = '42F6E9D5'
  end
end