eeprom_form.dfm

这是一个DELPHI与单片机相结合的应用例子 这个程序的主要功能是通过串口与单片机通讯

object Form1: TForm1
  Left = 186
  Top = 119
  AutoScroll = False
  Caption = 'EEPROM Reader'
  ClientHeight = 552
  ClientWidth = 792
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter2: TSplitter
    Left = 189
    Top = 29
    Width = 4
    Height = 523
  end
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 792
    Height = 29
    AutoSize = True
    BorderWidth = 1
    ButtonHeight = 21
    ButtonWidth = 33
    Caption = 'ToolBar1'
    ShowCaptions = True
    TabOrder = 0
    object ToolButton5: TToolButton
      Left = 0
      Top = 2
      Action = actStart
    end
    object ToolButton6: TToolButton
      Left = 33
      Top = 2
      Action = actStop
    end
    object ToolButton7: TToolButton
      Left = 66
      Top = 2
      Width = 8
      Caption = 'ToolButton7'
      ImageIndex = 0
      Style = tbsSeparator
    end
    object ToolButton11: TToolButton
      Left = 74
      Top = 2
      Action = actOpen
    end
    object ToolButton12: TToolButton
      Left = 107
      Top = 2
      Action = actSave
    end
    object ToolButton13: TToolButton
      Left = 140
      Top = 2
      Width = 8
      Caption = 'ToolButton13'
      ImageIndex = 1
      Style = tbsSeparator
    end
    object ToolButton2: TToolButton
      Left = 148
      Top = 2
      Action = actRead
    end
    object ToolButton3: TToolButton
      Left = 181
      Top = 2
      Action = actWrite
    end
    object ToolButton8: TToolButton
      Left = 214
      Top = 2
      Width = 8
      Caption = 'ToolButton8'
      ImageIndex = 0
      Style = tbsSeparator
    end
    object ToolButton1: TToolButton
      Left = 222
      Top = 2
      Action = actHelp
    end
    object ToolButton9: TToolButton
      Left = 255
      Top = 2
      Width = 8
      Caption = 'ToolButton9'
      ImageIndex = 0
      Style = tbsSeparator
    end
    object ToolButton4: TToolButton
      Left = 263
      Top = 2
      Action = actExit
    end
    object ToolButton10: TToolButton
      Left = 296
      Top = 2
      Width = 8
      Caption = 'ToolButton10'
      ImageIndex = 0
      Style = tbsSeparator
    end
    object prs: TProgressBar
      Left = 304
      Top = 2
      Width = 150
      Height = 21
      Step = 1
      TabOrder = 0
      Visible = False
    end
  end
  object Panel1: TPanel
    Left = 193
    Top = 29
    Width = 599
    Height = 523
    Align = alClient
    BevelOuter = bvNone
    Caption = 'Panel1'
    TabOrder = 1
    object Splitter1: TSplitter
      Left = 0
      Top = 297
      Width = 599
      Height = 4
      Cursor = crVSplit
      Align = alTop
    end
    object DBGrid1: TDBGrid
      Left = 0
      Top = 0
      Width = 599
      Height = 297
      Align = alTop
      DataSource = DataSource1
      Options = [dgEditing, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = 'FI'
          Title.Alignment = taCenter
          Width = 41
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'F0'
          Title.Alignment = taCenter
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'F1'
          Title.Alignment = taCenter
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'F2'
          Title.Alignment = taCenter
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'F3'
          Title.Alignment = taCenter
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'F4'
          Title.Alignment = taCenter
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'F5'
          Title.Alignment = taCenter
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'F6'
          Title.Alignment = taCenter
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'F7'
          Title.Alignment = taCenter
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'F8'
          Title.Alignment = taCenter
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'F9'
          Title.Alignment = taCenter
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'FA'
          Title.Alignment = taCenter
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'FB'
          Title.Alignment = taCenter
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'FC'
          Title.Alignment = taCenter
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'FD'
          Title.Alignment = taCenter
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'FE'
          Title.Alignment = taCenter
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'FF'
          Title.Alignment = taCenter
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'FS'
          Title.Alignment = taCenter
          Width = 111
          Visible = True
        end>
    end
    object Memo1: TMemo
      Left = 0
      Top = 301
      Width = 599
      Height = 222
      Align = alClient
      ScrollBars = ssVertical
      TabOrder = 1
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 29
    Width = 189
    Height = 523
    Align = alLeft
    BevelInner = bvLowered
    BevelOuter = bvNone
    TabOrder = 2
    object GroupBox1: TGroupBox
      Left = 8
      Top = 4
      Width = 173
      Height = 81
      Caption = 'Address Type'
      TabOrder = 0
      object opnAddr1: TRadioButton
        Left = 16
        Top = 24
        Width = 113
        Height = 17
        Caption = '8 bit address'
        Checked = True
        TabOrder = 0
        TabStop = True
      end
      object opnAddr2: TRadioButton
        Left = 16
        Top = 48
        Width = 113
        Height = 17
        Caption = '16 bit address'
        TabOrder = 1
      end
    end
    object GroupBox2: TGroupBox
      Left = 8
      Top = 92
      Width = 173
      Height = 97
      Caption = 'Chip Address'
      TabOrder = 1
      object Label1: TLabel
        Left = 64
        Top = 24
        Width = 13
        Height = 13
        Caption = 'A2'
      end
      object Label2: TLabel
        Left = 84
        Top = 24
        Width = 13
        Height = 13
        Caption = 'A1'
      end
      object Label3: TLabel
        Left = 104
        Top = 24
        Width = 13
        Height = 13
        Caption = 'A0'
      end
      object Label4: TLabel
        Left = 12
        Top = 40
        Width = 35
        Height = 13
        Caption = 'Reader'
      end
      object Label5: TLabel
        Left = 12
        Top = 60
        Width = 28
        Height = 13
        Caption = 'Writer'
      end
      object ra2: TCheckBox
        Left = 64
        Top = 40
        Width = 17
        Height = 17
        TabOrder = 0
      end
      object ra1: TCheckBox
        Left = 84
        Top = 40
        Width = 17
        Height = 17
        TabOrder = 1
      end
      object ra0: TCheckBox
        Left = 104
        Top = 40
        Width = 17
        Height = 17
        TabOrder = 2
      end
      object wa2: TCheckBox
        Left = 64
        Top = 60
        Width = 17
        Height = 17
        TabOrder = 3
      end
      object wa1: TCheckBox