fmmain.dfm

多数代码可以直接在Delphi6和Delphi7环境下运行。部分涉及.NET技术内容的代码

object Form1: TForm1
  Left = 155
  Top = 145
  Width = 623
  Height = 629
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = CHINESEBIG5_CHARSET
  Font.Color = clWindowText
  Font.Height = -16
  Font.Name = #26032#32048#26126#39636
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 16
  object Button1: TButton
    Left = 24
    Top = 264
    Width = 177
    Height = 41
    Caption = 'TWriter'
    TabOrder = 0
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 208
    Top = 264
    Width = 169
    Height = 41
    Caption = 'TReader'
    TabOrder = 1
    OnClick = Button2Click
  end
  object Panel1: TPanel
    Left = 8
    Top = 8
    Width = 569
    Height = 249
    Caption = 'Panel1'
    TabOrder = 2
    object Edit1: TEdit
      Left = 16
      Top = 16
      Width = 265
      Height = 24
      TabOrder = 0
      Text = 'Edit1'
    end
    object RadioButton1: TRadioButton
      Left = 8
      Top = 48
      Width = 289
      Height = 33
      Caption = 'RadioButton1'
      TabOrder = 1
    end
    object CheckBox1: TCheckBox
      Left = 16
      Top = 88
      Width = 273
      Height = 33
      Caption = 'CheckBox1'
      TabOrder = 2
    end
    object RadioGroup1: TRadioGroup
      Left = 8
      Top = 128
      Width = 265
      Height = 105
      Caption = 'RadioGroup1'
      Items.Strings = (
        'Delphi '
        'C++Builder'
        'C#Builder'
        'JBuilder')
      TabOrder = 3
    end
    object ListBox1: TListBox
      Left = 304
      Top = 8
      Width = 265
      Height = 209
      ItemHeight = 16
      Items.Strings = (
        '1'
        '2'
        '3'
        '4'
        '5'
        '6')
      TabOrder = 4
    end
  end
  object Button3: TButton
    Left = 384
    Top = 264
    Width = 193
    Height = 41
    Caption = 'Write Root'
    TabOrder = 3
    OnClick = Button3Click
  end
  object Memo1: TMemo
    Left = 0
    Top = 368
    Width = 615
    Height = 227
    Align = alBottom
    ScrollBars = ssBoth
    TabOrder = 4
  end
  object btnBinaryToText: TButton
    Left = 24
    Top = 312
    Width = 177
    Height = 49
    Caption = 'BinaryToText'
    TabOrder = 5
    OnClick = btnBinaryToTextClick
  end
  object btnTextToBinary: TButton
    Left = 208
    Top = 312
    Width = 177
    Height = 49
    Caption = 'TextToBinary'
    TabOrder = 6
    OnClick = btnTextToBinaryClick
  end
  object Button4: TButton
    Left = 392
    Top = 312
    Width = 185
    Height = 49
    Caption = 'Button4'
    TabOrder = 7
    OnClick = Button4Click
  end
  object OpenDialog1: TOpenDialog
    DefaultExt = '.pas'
    Left = 552
    Top = 232
  end
end