main.dfm

zip算法的源码

object MainForm: TMainForm
  Left = 313
  Top = 153
  Width = 395
  Height = 258
  Caption = 'ThreadDemo'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object LblOkT1: TLabel
    Left = 64
    Top = 176
    Width = 41
    Height = 13
    Caption = 'LblOkT1'
  end
  object LblOkT2: TLabel
    Left = 224
    Top = 176
    Width = 41
    Height = 13
    Caption = 'LblOkT2'
  end
  object LblErrT1: TLabel
    Left = 64
    Top = 200
    Width = 40
    Height = 13
    Caption = 'LblErrT1'
  end
  object LblErrT2: TLabel
    Left = 224
    Top = 200
    Width = 40
    Height = 13
    Caption = 'LblErrT2'
  end
  object Label1: TLabel
    Left = 10
    Top = 176
    Width = 51
    Height = 13
    Caption = 'Files Ok:'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label2: TLabel
    Left = 3
    Top = 200
    Width = 58
    Height = 13
    Caption = 'FileErrors:'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label3: TLabel
    Left = 64
    Top = 48
    Width = 48
    Height = 13
    Caption = 'Thread1'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label4: TLabel
    Left = 224
    Top = 48
    Width = 48
    Height = 13
    Caption = 'Thread2'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object LblPath1: TLabel
    Left = 64
    Top = 72
    Width = 137
    Height = 13
    AutoSize = False
    Caption = 'Path '
  end
  object Label6: TLabel
    Left = 64
    Top = 120
    Width = 34
    Height = 13
    Caption = 'ZipFile:'
  end
  object LblPath2: TLabel
    Left = 224
    Top = 70
    Width = 153
    Height = 13
    AutoSize = False
    Caption = 'Path'
  end
  object Label8: TLabel
    Left = 224
    Top = 120
    Width = 34
    Height = 13
    Caption = 'ZipFile:'
  end
  object LblFnameT1: TLabel
    Left = 100
    Top = 120
    Width = 43
    Height = 13
    Caption = '<none>'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object LblFnameT2: TLabel
    Left = 264
    Top = 120
    Width = 43
    Height = 13
    Caption = '<none>'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object BitBtn1: TBitBtn
    Left = 152
    Top = 8
    Width = 75
    Height = 25
    Caption = 'Start'
    TabOrder = 0
    OnClick = BitBtn1Click
    Kind = bkOK
  end
  object Button1: TButton
    Tag = 1
    Left = 64
    Top = 91
    Width = 91
    Height = 25
    Caption = 'SetPath 1'
    TabOrder = 1
    OnClick = Button1Click
  end
  object Button2: TButton
    Tag = 1
    Left = 64
    Top = 144
    Width = 91
    Height = 25
    Caption = 'Set Zip Name 1'
    TabOrder = 2
    OnClick = Button2Click
  end
  object Button3: TButton
    Tag = 2
    Left = 224
    Top = 88
    Width = 97
    Height = 25
    Caption = 'Set Path 2'
    TabOrder = 3
    OnClick = Button1Click
  end
  object Button4: TButton
    Tag = 2
    Left = 224
    Top = 144
    Width = 97
    Height = 25
    Caption = 'Set Zip Name 2'
    TabOrder = 4
    OnClick = Button2Click
  end
  object OpenDialog1: TOpenDialog
    Left = 320
    Top = 16
  end
end