unitmain.dfm

使用Delphi操作Excel的例子。 功能是从一个excel文件中删除另外一个excel文件已经存在的内容。

object FrmMain: TFrmMain
  Left = 308
  Top = 294
  Width = 488
  Height = 437
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = #25968#25454#21076#38500#24037#20855'(Excel)'
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = #24494#36719#38597#40657
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 19
  object mmo1: TMemo
    Left = 0
    Top = 218
    Width = 480
    Height = 192
    Align = alClient
    ScrollBars = ssBoth
    TabOrder = 0
  end
  object pb1: TProgressBar
    Left = 0
    Top = 201
    Width = 480
    Height = 17
    Align = alTop
    TabOrder = 1
  end
  object pnl1: TPanel
    Left = 0
    Top = 0
    Width = 480
    Height = 201
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 2
    object lbl1: TLabel
      Left = 8
      Top = 5
      Width = 122
      Height = 19
      Caption = #20840#37096#25968#25454#30340'Excel'#25991#20214
    end
    object lbl2: TLabel
      Left = 8
      Top = 58
      Width = 148
      Height = 19
      Caption = #38656#35201#21024#38500#25968#25454#30340'Excel'#25991#20214
    end
    object lbl3: TLabel
      Left = 8
      Top = 109
      Width = 96
      Height = 19
      Caption = #36755#20986#30340'Excel'#25991#20214
    end
    object edtInAll: TEdit
      Left = 8
      Top = 23
      Width = 375
      Height = 27
      TabOrder = 0
    end
    object edtInSub: TEdit
      Left = 8
      Top = 77
      Width = 375
      Height = 27
      TabOrder = 1
      OnChange = edtInSubChange
    end
    object edtOut: TEdit
      Left = 8
      Top = 128
      Width = 375
      Height = 27
      TabOrder = 2
    end
    object btnInAll: TBitBtn
      Left = 383
      Top = 24
      Width = 75
      Height = 25
      Caption = #36873#25321
      TabOrder = 3
      OnClick = btnInAllClick
    end
    object btnInSub: TBitBtn
      Left = 383
      Top = 78
      Width = 75
      Height = 25
      Caption = #36873#25321
      TabOrder = 4
      OnClick = btnInSubClick
    end
    object btnOut: TBitBtn
      Left = 383
      Top = 129
      Width = 75
      Height = 25
      Caption = #36873#25321
      TabOrder = 5
      OnClick = btnOutClick
    end
    object btnSwitch: TBitBtn
      Left = 264
      Top = 176
      Width = 75
      Height = 25
      Caption = #36755#20986
      TabOrder = 6
      OnClick = btnSwitchClick
    end
    object btnClose: TBitBtn
      Left = 352
      Top = 176
      Width = 75
      Height = 25
      Caption = #20851#38381
      TabOrder = 7
      OnClick = btnCloseClick
    end
  end
  object dlgOpen1: TOpenDialog
    Filter = 'Excel'#25991#20214'(*xls)|*.xls'
    Left = 80
    Top = 168
  end
  object dlgSave1: TSaveDialog
    Filter = 'Excel'#25991#20214'(*xls)|*.xls'
    Left = 144
    Top = 184
  end
end