unit1.dfm

用delphi编写的小程序

        Caption = #27987#24230'(%)   '
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label3: TLabel
        Left = 5
        Top = 56
        Width = 43
        Height = 13
        Caption = #28342#28082'B'#65306
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label4: TLabel
        Left = 5
        Top = 82
        Width = 48
        Height = 13
        Caption = #28151#21512#28082#65306
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label5: TLabel
        Left = 120
        Top = 6
        Width = 45
        Height = 13
        Caption = #36136#37327'(g)   '
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object NongDuA: TEdit
        Left = 62
        Top = 26
        Width = 53
        Height = 24
        BevelInner = bvSpace
        BevelKind = bkFlat
        BevelOuter = bvRaised
        BorderStyle = bsNone
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = '@Fixedsys'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
      end
      object MassA: TEdit
        Left = 116
        Top = 26
        Width = 53
        Height = 24
        BevelInner = bvSpace
        BevelKind = bkFlat
        BevelOuter = bvRaised
        BorderStyle = bsNone
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = '@Fixedsys'
        Font.Style = []
        ParentFont = False
        TabOrder = 1
      end
      object NongDuB: TEdit
        Left = 62
        Top = 51
        Width = 53
        Height = 24
        BevelInner = bvSpace
        BevelKind = bkFlat
        BevelOuter = bvRaised
        BorderStyle = bsNone
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = '@Fixedsys'
        Font.Style = []
        ParentFont = False
        TabOrder = 2
      end
      object NongDuMixed: TEdit
        Left = 62
        Top = 76
        Width = 53
        Height = 24
        BevelInner = bvSpace
        BevelKind = bkFlat
        BevelOuter = bvRaised
        BorderStyle = bsNone
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = '@Fixedsys'
        Font.Style = []
        ParentFont = False
        TabOrder = 3
      end
      object MassMixed: TEdit
        Left = 116
        Top = 76
        Width = 53
        Height = 24
        BevelInner = bvSpace
        BevelKind = bkFlat
        BevelOuter = bvRaised
        BorderStyle = bsNone
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = '@Fixedsys'
        Font.Style = []
        ParentFont = False
        TabOrder = 4
      end
      object Memo1: TMemo
        Left = 181
        Top = 23
        Width = 122
        Height = 89
        BevelInner = bvNone
        BevelOuter = bvNone
        BorderStyle = bsNone
        Color = clBtnFace
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Lines.Strings = (
          #35831#22635#20837#20004#20010#27987#24230#20004#20010
          #36136#37327#30340#25968#25454#12290
          #28857#35745#31639#20415#21487#24471#20986#21478#20004
          #20010#25968#25454#12290)
        ParentFont = False
        ReadOnly = True
        TabOrder = 5
      end
      object BtnCalc: TButton
        Left = 170
        Top = 107
        Width = 69
        Height = 22
        Caption = #35745#31639
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 6
        OnClick = BtnCalcClick
      end
      object MassB: TEdit
        Left = 116
        Top = 51
        Width = 53
        Height = 24
        BevelInner = bvSpace
        BevelKind = bkFlat
        BevelOuter = bvRaised
        BorderStyle = bsNone
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = '@Fixedsys'
        Font.Style = []
        ParentFont = False
        TabOrder = 7
      end
      object BtnDeleteAll2: TButton
        Left = 241
        Top = 107
        Width = 69
        Height = 22
        Caption = #20840#37096#28165#31354
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 8
        OnClick = BtnDeleteAll2Click
      end
    end
    object TabSheet3: TTabSheet
      Tag = 2
      Caption = #24335#37327#30340#35745#31639
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ImageIndex = 2
      ParentFont = False
      OnShow = TabSheet1Show
      object Label11: TLabel
        Left = 3
        Top = 2
        Width = 132
        Height = 13
        Caption = #21270#23398#24335'('#35831#27880#24847#22823#23567#20889')'#65306'  '
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label14: TLabel
        Left = 5
        Top = 50
        Width = 37
        Height = 24
        Caption = 'M=?'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -19
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Button2: TButton
        Left = 245
        Top = 49
        Width = 69
        Height = 22
        Hint = #35745#31639#24335#37327
        Caption = #35745#31639
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
        OnClick = Button2Click
      end
    end
    object TabSheet4: TTabSheet
      Caption = #24110#21161
      ImageIndex = 3
      object Memo6: TMemo
        Left = 0
        Top = 0
        Width = 316
        Height = 320
        Align = alClient
        BevelInner = bvSpace
        BevelKind = bkFlat
        BevelOuter = bvRaised
        BorderStyle = bsNone
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Lines.Strings = (
          '               '#21270#23398#23567#24110#25163#20351#29992#24110#21161
          ''
          ''
          #20316#32773#65306#29579#20094#20803
          #23398#26657#29677#32423#65306#38182#24030#24066#38182#24030#20013#23398#19968#24180#20061#29677
          #20351#29992#24037#20855#65306'Delphi 7'
          ''
          #21151#33021':'#26041#31243#24335#37197#24179#12289#28342#28082#28151#21512#36816#31639#12289#24335#37327#30340#35745#31639
          ''
          #19968#12289#26041#31243#24335#37197#24179
          ''
          '   '#22312#21270#23398#24335#36755#20837#26694#20013#36755#20837#21270#23398#24335','#27492#21270#23398#24335#21482#21487#21253#25324#22914#19979
          #23383#31526#65306'a~z,A~Z,0~9,( )'#12290#22914#36755#20837#38169#35823#65292#28857#28165#31354#65292#21363#21487#28165
          #31354#21270#23398#24335#36755#20837#26694#12290
          ''
          '   '#36755#20837#21270#23398#24335#26102#65292#19968#23450#35201#27880#24847#20803#32032#31526#21495#30340#22823#23567#20889':KCl'#19981#21487
          #20889#25104'kcl'
          ''
          '   '#20889#22909#19968#20010#21270#23398#24335#21518#65292#28857#20987#21453#24212#29289#21491#36793#30340#28155#21152#25353#38062#65292#21363
          #21487
          #23558#27492#21270#23398#24335#21152#20837#21453#24212#29289';'#28857#20987#29983#25104#29289#21491#36793#30340#28155#21152#25353#38062#65292#21363
          #21487#23558#27492#21270#23398#24335#21152#20837#29983#25104#29289#12290
          ''
          '   '#22914#24819#21024#38500#24050#21152#20837#30340#21453#24212#29289#25110#29983#25104#29289#65292#21482#35201#23558#20809#26631#32622#20110
          #25152
          #35201#21024#38500#30340#34892#65292#28857#21491#36793#30340#21024#38500#21363#21487#12290
          ''
          '   '#21453#24212#29289#19982#29983#25104#29289#37117#22635#22909#21518#65292#28857#20987#37197#24179#65292#21363#21487#24471#21040#37197#24179
          #32467
          #26524#12290#21508#29289#36136#31995#25968#22312#24038#36793#26174#31034#65292#35813#29289#36136#30340#24335#37327#19982#20854#31995#25968#30340
          #20056#31215#22312#21491#36793#26174#31034#12290
          ''
          '   '#20363':'
          '   '#37197#24179' CO + Fe2O3 - Fe + CO2'
          '   '#22312#21270#23398#24335#36755#20837#26694#20013#36755#20837
          '        CO             '#28857#20987#21453#24212#29289#21491#36793#30340#28155#21152#25353#38062
          '        Fe2O3          '#28857#20987#21453#24212#29289#21491#36793#30340#28155#21152#25353#38062
          '        '
          '        Fe             '#28857#20987#29983#25104#29289#21491#36793#30340#28155#21152#25353#38062
          '        CO2            '#28857#20987#29983#25104#29289#21491#36793#30340#28155#21152#25353#38062
          '   '
          '   '#20877#28857#20987#37197#24179' '#20415#21487#24471#21040#32467#26524':'
          '   CO'#31995#25968#20026'3,Fe2O3'#31995#25968#20026'1,Fe'#31995#25968#20026'2,CO2'#31995#25968#20026'3'
          ''
          #20108#12289#28342#28082#28151#21512#36816#31639
          '        '
          '   '#22312#20845#20010#36755#20837#26694#20013#36755#20837#20004#20010#36136#37327#25968#25454#65292#20004#20010#27987#24230#25968#25454#65292
          #28857
          #35745#31639#65292#21363#21487#24471#21040#20854#23427#36136#37327#19982#27987#24230#25968#25454#12290
          ''
          '   '#20363':'
          '   '#24050#30693#28342#28082'A'#30340#27987#24230#19982#36136#37327#65292#28151#21512#28342#28082#30340#27987#24230#19982#36136#37327#65292#27714
          '   '#28342#28082'B'#30340#27987#24230#19982#36136#37327#12290
          ''
          '   '#36755#20837#28342#28082'A'#30340#27987#24230#20026'10(%),'#36136#37327#20026'200(g),'
          '   '#28151#21512#28082#30340#27987#24230#20026'20(%),'#36136#37327#20026'300(g),'
          ''
          '   '#28857#20987#35745#31639#21487#24471':'
          '   '#28342#28082'B'#30340#27987#24230#20026'40(%),'#36136#37327#20026'100(g).   '
          ''
          #19977#12289#24335#37327#30340#35745#31639
          '       '
          '   '#36755#20837#19968#20010#21270#23398#24335#21518#65292#28857#20987#35745#31639#65292#21363#21487#24471#20854#24335#37327#12290
          ''
          '   '#20363':'
          '   '#27714' CuSO4'#30340#24335#37327
          ''
          '   '#22312#21270#23398#24335#36755#20837#26694#20013#36755#20837' CuSO4'
          ''
          '   '#28857#20987#35745#31639#21487#24471#20854#24335#37327#20026'160'
          '')
        ParentFont = False
        ReadOnly = True
        ScrollBars = ssVertical
        TabOrder = 0
      end
    end
  end
end