unit1.~dfm

遗传算法(Genetic Algorithm, GA)是近几年发展起来的一种崭新的全局优化算法

object Form1: TForm1
  Left = 180
  Top = 107
  Width = 783
  Height = 723
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 449
    Height = 696
    Align = alLeft
    Color = clSkyBlue
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    object GroupBox6: TGroupBox
      Left = 1
      Top = 1
      Width = 447
      Height = 88
      Align = alTop
      Caption = #30456#20851#21442#25968
      TabOrder = 0
      object Label4: TLabel
        Left = 189
        Top = 64
        Width = 49
        Height = 17
        Caption = ' '#20010#20307#25968
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -15
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object Label3: TLabel
        Left = 38
        Top = 56
        Width = 60
        Height = 17
        Caption = #21464#24322#27010#29575
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -15
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object Label2: TLabel
        Left = 179
        Top = 23
        Width = 60
        Height = 17
        Caption = #20132#21449#27010#29575
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -15
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object Label1: TLabel
        Left = 13
        Top = 24
        Width = 90
        Height = 17
        Caption = #26368#22823#36827#21270#20195#25968
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -15
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object Editevolve: TEdit
        Left = 116
        Top = 13
        Width = 50
        Height = 27
        TabOrder = 0
        Text = '200'
      end
      object EditPc: TEdit
        Left = 252
        Top = 13
        Width = 50
        Height = 27
        TabOrder = 1
        Text = '0.5'
      end
      object Editaberrance: TEdit
        Left = 116
        Top = 53
        Width = 50
        Height = 27
        TabOrder = 2
        Text = '0.3'
      end
      object Editcount: TEdit
        Left = 251
        Top = 53
        Width = 50
        Height = 27
        TabOrder = 3
        Text = '50'
      end
    end
    object Panel10: TPanel
      Left = 1
      Top = 439
      Width = 447
      Height = 256
      Align = alBottom
      Caption = 'Panel10'
      Color = clSkyBlue
      TabOrder = 1
      DesignSize = (
        447
        256)
      object GroupBox1: TGroupBox
        Left = 48
        Top = 7
        Width = 185
        Height = 49
        Anchors = [akLeft, akBottom]
        Caption = #27714#20540
        TabOrder = 0
        object RadioMax: TRadioButton
          Left = 8
          Top = 24
          Width = 73
          Height = 17
          Caption = #26368#22823#20540
          Checked = True
          TabOrder = 0
          TabStop = True
        end
        object Radiomin: TRadioButton
          Left = 103
          Top = 24
          Width = 73
          Height = 17
          Caption = #26368#23567#20540
          TabOrder = 1
        end
      end
      object GroupBox2: TGroupBox
        Left = 48
        Top = 55
        Width = 185
        Height = 73
        Anchors = [akLeft, akBottom]
        Caption = #36873#25321#22797#21046#26041#27861
        TabOrder = 1
        object Radioexpect: TRadioButton
          Left = 8
          Top = 24
          Width = 113
          Height = 17
          Caption = #26399#26395#20540#26041#27861
          Checked = True
          TabOrder = 0
          TabStop = True
        end
        object Radioroulette: TRadioButton
          Left = 8
          Top = 48
          Width = 130
          Height = 17
          Caption = #36718#30424#36172#26041#27861
          TabOrder = 1
        end
      end
      object GroupBox3: TGroupBox
        Left = 48
        Top = 126
        Width = 185
        Height = 98
        Anchors = [akLeft, akBottom]
        Caption = #36873#25321#20132#21449#26041#27861
        TabOrder = 2
        object Radiosingle: TRadioButton
          Left = 8
          Top = 24
          Width = 113
          Height = 17
          Caption = #21333#28857#20132#21449
          Checked = True
          TabOrder = 0
          TabStop = True
        end
        object Radiodouble: TRadioButton
          Left = 8
          Top = 48
          Width = 130
          Height = 17
          Caption = #20004#28857#20132#21449
          TabOrder = 1
        end
        object Radioequality: TRadioButton
          Left = 8
          Top = 72
          Width = 130
          Height = 17
          Caption = #22343#21248#20132#21449
          TabOrder = 2
        end
      end
    end
    object Panel6: TPanel
      Left = 1
      Top = 89
      Width = 447
      Height = 350
      Align = alClient
      Caption = 'Panel6'
      Color = clSkyBlue
      TabOrder = 2
      object Panel7: TPanel
        Left = 1
        Top = 1
        Width = 445
        Height = 32
        Align = alTop
        Caption = #21010#20998#31561#32423
        Color = clSkyBlue
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clRed
        Font.Height = -19
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 0
      end
      object BitBtn2: TBitBtn
        Left = 16
        Top = 8
        Width = 75
        Height = 25
        Caption = 'BitBtn2'
        TabOrder = 1
        Visible = False
      end
      object Panel11: TPanel
        Left = 1
        Top = 33
        Width = 445
        Height = 316
        Align = alClient
        Color = clSkyBlue
        TabOrder = 2
        object Label5: TLabel
          Left = 189
          Top = 8
          Width = 45
          Height = 17
          Caption = #38582#23646#24230
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -15
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
        end
        object Label11: TLabel
          Left = 48
          Top = 8
          Width = 64
          Height = 19
          Caption = #31561#32423#25968#65306
        end
        object Label7: TLabel
          Left = 48
          Top = 40
          Width = 48
          Height = 19
          Caption = #22240#32032#65306
        end
        object Label9: TLabel
          Left = 8
          Top = 72
          Width = 80
          Height = 19
          Caption = #22240#32032#32423#25968#65306
        end
        object Label10: TLabel
          Left = 224
          Top = 72
          Width = 48
          Height = 19
          Caption = #31561#32423#65306
        end
        object Label8: TLabel
          Left = 192
          Top = 40
          Width = 48
          Height = 19
          Caption = #25968#25454#65306
        end
        object BitBtn1: TBitBtn
          Left = 150
          Top = 282
          Width = 75
          Height = 25
          Caption = #30830#23450
          TabOrder = 0
          OnClick = BitBtn1Click
        end
        object Editstate: TEdit
          Left = 244
          Top = 5
          Width = 50
          Height = 27
          TabOrder = 1
          Text = '5'
        end
        object Edit1: TEdit
          Left = 128
          Top = 3
          Width = 41
          Height = 27
          TabOrder = 2
          Text = '5'
        end
        object Edit2: TEdit
          Left = 128
          Top = 40
          Width = 41
          Height = 27
          TabOrder = 3
          Text = '9'
        end
        object StringGrid3: TStringGrid
          Left = 5
          Top = 96
          Width = 220
          Height = 177
          ColCount = 9
          FixedCols = 0
          RowCount = 10
          FixedRows = 0
          Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing]
          TabOrder = 4
        end
        object StringGrid4: TStringGrid
          Left = 229
          Top = 96
          Width = 92
          Height = 177
          ColCount = 1
          FixedCols = 0
          RowCount = 10
          FixedRows = 0
          Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing]
          TabOrder = 5
        end
        object E_10: TEdit
          Left = 240
          Top = 40
          Width = 57
          Height = 27
          TabOrder = 6
          Text = '10'
        end
        object Edit3: TEdit
          Left = 336
          Top = 64
          Width = 57
          Height = 27
          TabOrder = 7
          Text = 'Edit3'
        end
        object StringGrid5: TStringGrid
          Left = 333
          Top = 96
          Width = 92
          Height = 177
          ColCount = 1
          FixedCols = 0
          RowCount = 10
          FixedRows = 0
          Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing]
          TabOrder = 8
        end
      end
    end
  end
  object Panel2: TPanel
    Left = 449
    Top = 0
    Width = 326
    Height = 696
    Align = alClient
    TabOrder = 1
    object Panel5: TPanel
      Left = 1
      Top = 1
      Width = 324
      Height = 694
      Align = alClient
      Caption = 'Panel5'
      TabOrder = 0
      object Panel4: TPanel
        Left = 1
        Top = 1
        Width = 322
        Height = 48
        Align = alTop
        Color = clSkyBlue
        TabOrder = 0
        object Button3: TButton
          Left = 576
          Top = 8
          Width = 89
          Height = 25
          Caption = #32467#26524#26174#31034
          TabOrder = 0
          Visible = False
        end
        object Button1: TButton
          Left = 88
          Top = 8
          Width = 105
          Height = 33
          Caption = #21021#22987#25968#25454
          TabOrder = 1
          OnClick = Button1Click
        end
        object Button2: TButton
          Left = 296
          Top = 7
          Width = 75
          Height = 34
          Caption = #36951#20256#31639#27861
          TabOrder = 2
          OnClick = Button2Click
        end
      end
      object Panel3: TPanel
        Left = 1
        Top = 49
        Width = 322
        Height = 337
        Align = alClient
        Caption = 'Panel3'
        TabOrder = 1
        object StringGrid1: TStringGrid
          Left = 65
          Top = 1
          Width = 504
          Height = 360
          ColCount = 3
          DefaultColWidth = 65
          DefaultRowHeight = 20
          FixedColor = clSilver
          RowCount = 30
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing]
          ParentFont = False
          TabOrder = 0
          RowHeights = (
            20
            20
            20
            20
            20
            20
            20
            20
            20
            20
            20
            20
            20
            20
            20
            20
            20
            20
            20
            20
            20
            20
            20
            20
            20
            20
            20
            20
            20
            20)
        end
        object Panel8: TPanel
          Left = 1
          Top = 1
          Width = 64
          Height = 262
          Align = alLeft
          Caption = 'Panel8'
          TabOrder = 1
          object clb: TCheckListBox
            Left = 1
            Top = 23
            Width = 64
            Height = 238
            Align = alLeft
            Font.Charset = ANSI_CHARSET
            Font.Color = clWindowText
            Font.Height = -21
            Font.Name = #23435#20307
            Font.Style = []
            ItemHeight = 24
            ParentFont = False
            TabOrder = 0
          end
          object Panel9: TPanel
            Left = 1
            Top = 1
            Width = 62
            Height = 22
            Align = alTop
            Caption = #31561#32423
            TabOrder = 1
          end
        end
        object StringGrid2: TStringGrid
          Left = 1
          Top = 263
          Width = 320
          Height = 73
          Align = alBottom
          ColCount = 9
          FixedCols = 0
          RowCount = 1
          FixedRows = 0
          Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing]
          TabOrder = 2
        end
      end
      object Panel12: TPanel
        Left = 1
        Top = 386
        Width = 322
        Height = 307
        Align = alBottom
        Caption = 'Panel12'
        TabOrder = 2
        object GroupBox4: TGroupBox
          Left = 1
          Top = 1
          Width = 320
          Height = 159
          Align = alClient
          Caption = #21407#22987#25968#25454
          Color = clSkyBlue
          ParentColor = False
          TabOrder = 0
          object Memo2: TMemo
            Left = 2
            Top = 15
            Width = 316
            Height = 142
            Align = alClient
            TabOrder = 0
          end
        end
        object GroupBox5: TGroupBox
          Left = 1
          Top = 160
          Width = 320
          Height = 146
          Align = alBottom
          Caption = #36827#21270#21518#30340#25968#25454
          Color = clSkyBlue
          ParentColor = False
          TabOrder = 1
          object Label6: TLabel
            Left = 8
            Top = 16
            Width = 7
            Height = 13
            Font.Charset = GB2312_CHARSET
            Font.Color = clWindowText
            Font.Height = -13
            Font.Name = #23435#20307
            Font.Style = []
            ParentFont = False
          end
          object Memo1: TMemo
            Left = 2
            Top = 32
            Width = 316
            Height = 112
            Align = alBottom
            TabOrder = 0
          end
        end
      end
    end
  end
end