unit1.dfm

用来检测excel文件的列是否有重复的字段。如有

object Form1: TForm1
  Left = 284
  Top = 166
  BorderStyle = bsDialog
  Caption = 'Excel Assistant'
  ClientHeight = 355
  ClientWidth = 456
  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 Memo1: TMemo
    Left = 0
    Top = 128
    Width = 456
    Height = 227
    Align = alBottom
    BevelInner = bvLowered
    ReadOnly = True
    ScrollBars = ssBoth
    TabOrder = 1
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 456
    Height = 97
    Align = alTop
    BevelInner = bvLowered
    TabOrder = 3
    object LabeledEdit1: TLabeledEdit
      Left = 96
      Top = 8
      Width = 249
      Height = 21
      EditLabel.Width = 87
      EditLabel.Height = 13
      EditLabel.Caption = #35201#22788#29702#30340#25991#20214#65306' '
      LabelPosition = lpLeft
      TabOrder = 0
    end
    object UpDown1: TUpDown
      Left = 65
      Top = 48
      Width = 15
      Height = 21
      Associate = LabeledEdit2
      Min = 1
      Max = 32767
      Position = 1
      TabOrder = 1
    end
    object LabeledEdit2: TLabeledEdit
      Left = 16
      Top = 48
      Width = 49
      Height = 21
      EditLabel.Width = 48
      EditLabel.Height = 13
      EditLabel.Caption = 'Sheet No:'
      TabOrder = 2
      Text = '1'
    end
    object LabeledEdit3: TLabeledEdit
      Left = 184
      Top = 48
      Width = 57
      Height = 21
      EditLabel.Width = 50
      EditLabel.Height = 13
      EditLabel.Caption = 'Start Row:'
      TabOrder = 3
      Text = '1'
    end
    object UpDown2: TUpDown
      Left = 241
      Top = 48
      Width = 15
      Height = 21
      Associate = LabeledEdit3
      Min = 1
      Max = 32767
      Position = 1
      TabOrder = 4
    end
    object UpDown3: TUpDown
      Left = 329
      Top = 48
      Width = 15
      Height = 21
      Associate = LabeledEdit4
      Min = 1
      Max = 32767
      Position = 1
      TabOrder = 5
    end
    object LabeledEdit4: TLabeledEdit
      Left = 272
      Top = 48
      Width = 57
      Height = 21
      EditLabel.Width = 47
      EditLabel.Height = 13
      EditLabel.Caption = 'End Row:'
      TabOrder = 6
      Text = '1'
    end
    object LabeledEdit5: TLabeledEdit
      Left = 96
      Top = 48
      Width = 57
      Height = 21
      EditLabel.Width = 38
      EditLabel.Height = 13
      EditLabel.Caption = 'Column:'
      TabOrder = 7
      Text = '1'
    end
    object UpDown4: TUpDown
      Left = 153
      Top = 48
      Width = 15
      Height = 21
      Associate = LabeledEdit5
      Min = 1
      Position = 1
      TabOrder = 8
    end
  end
  object Button2: TButton
    Left = 352
    Top = 8
    Width = 89
    Height = 25
    Caption = #27983#35272
    TabOrder = 2
    OnClick = Button2Click
  end
  object Button1: TButton
    Left = 352
    Top = 48
    Width = 89
    Height = 25
    Caption = #24320#22987#22788#29702
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clGreen
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    OnClick = Button1Click
  end
  object StaticText1: TStaticText
    Left = 192
    Top = 104
    Width = 64
    Height = 20
    Caption = #27604#36739#32467#26524#65306
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 4
  end
  object OpenDialog1: TOpenDialog
    Filter = 'MS Eexel|*.xls'
    Left = 344
    Top = 96
  end
end