main.dfm

比较经典的压缩算法

object mainfm: Tmainfm
  Left = 93
  Top = 10
  BorderStyle = bsSingle
  Caption = '测试'
  ClientHeight = 480
  ClientWidth = 671
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -16
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 16
  object Label1: TLabel
    Left = 36
    Top = 28
    Width = 48
    Height = 16
    Caption = '源文件'
  end
  object Label2: TLabel
    Left = 36
    Top = 60
    Width = 64
    Height = 16
    Caption = '输出文件'
  end
  object Label3: TLabel
    Left = 32
    Top = 440
    Width = 560
    Height = 14
    Caption = 
      '注：算术编码arith 算法由于没有清除使用的内存，执行该功能后最好退' +
      '出一下以清除内存'
    Font.Charset = GB2312_CHARSET
    Font.Color = clRed
    Font.Height = -14
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
  end
  object Edit1: TEdit
    Left = 116
    Top = 24
    Width = 400
    Height = 24
    TabOrder = 0
  end
  object Edit2: TEdit
    Left = 116
    Top = 60
    Width = 400
    Height = 24
    TabOrder = 1
  end
  object BitBtn1: TBitBtn
    Left = 536
    Top = 24
    Width = 75
    Height = 25
    Caption = '查找'
    TabOrder = 2
    OnClick = BitBtn1Click
  end
  object BitBtn2: TBitBtn
    Left = 536
    Top = 60
    Width = 75
    Height = 25
    Caption = '查找'
    TabOrder = 3
    OnClick = BitBtn2Click
  end
  object GroupBox1: TGroupBox
    Left = 40
    Top = 104
    Width = 265
    Height = 81
    Caption = 'LZ77 算法'
    TabOrder = 4
    object BitBtn3: TBitBtn
      Tag = 1
      Left = 36
      Top = 36
      Width = 75
      Height = 25
      Caption = '压缩'
      TabOrder = 0
      OnClick = BitBtn3Click
    end
    object BitBtn4: TBitBtn
      Tag = 2
      Left = 144
      Top = 36
      Width = 75
      Height = 25
      Caption = '解压缩'
      TabOrder = 1
      OnClick = BitBtn3Click
    end
  end
  object GroupBox2: TGroupBox
    Left = 40
    Top = 196
    Width = 265
    Height = 81
    Caption = '算术编码arith 算法'
    TabOrder = 5
    object BitBtn5: TBitBtn
      Tag = 3
      Left = 36
      Top = 36
      Width = 75
      Height = 25
      Caption = '压缩'
      TabOrder = 0
      OnClick = BitBtn3Click
    end
    object BitBtn6: TBitBtn
      Tag = 4
      Left = 144
      Top = 36
      Width = 75
      Height = 25
      Caption = '解压缩'
      TabOrder = 1
      OnClick = BitBtn3Click
    end
  end
  object GroupBox3: TGroupBox
    Left = 352
    Top = 104
    Width = 265
    Height = 81
    Caption = 'LHA 算法'
    TabOrder = 6
    object BitBtn7: TBitBtn
      Tag = 5
      Left = 36
      Top = 36
      Width = 75
      Height = 25
      Caption = '压缩'
      TabOrder = 0
      OnClick = BitBtn3Click
    end
    object BitBtn8: TBitBtn
      Tag = 6
      Left = 144
      Top = 36
      Width = 75
      Height = 25
      Caption = '解压缩'
      TabOrder = 1
      OnClick = BitBtn3Click
    end
  end
  object GroupBox4: TGroupBox
    Left = 352
    Top = 196
    Width = 265
    Height = 81
    Caption = 'Zip 算法'
    TabOrder = 7
    object BitBtn10: TBitBtn
      Tag = 7
      Left = 36
      Top = 36
      Width = 75
      Height = 25
      Caption = '压缩'
      TabOrder = 0
      OnClick = BitBtn3Click
    end
    object BitBtn11: TBitBtn
      Tag = 8
      Left = 144
      Top = 36
      Width = 75
      Height = 25
      Caption = '解压缩'
      TabOrder = 1
      OnClick = BitBtn3Click
    end
  end
  object Memo1: TMemo
    Left = 40
    Top = 292
    Width = 577
    Height = 133
    ScrollBars = ssBoth
    TabOrder = 8
  end
  object OpenDialog1: TOpenDialog
    Left = 592
    Top = 24
  end
  object SaveDialog1: TSaveDialog
    Left = 592
    Top = 60
  end
end