unit1.~dfm

用遗传算法进行排序

object Form1: TForm1
  Left = 106
  Top = 106
  Width = 477
  Height = 402
  Caption = 'Form1'
  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 Label1: TLabel
    Left = 16
    Top = 8
    Width = 152
    Height = 16
    Caption = 'X = [ 60 ,40 ,50 ,10 ,30 ,20 ] '
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label2: TLabel
    Left = 241
    Top = 19
    Width = 52
    Height = 16
    Caption = '适配值：'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label3: TLabel
    Left = 296
    Top = 19
    Width = 78
    Height = 16
    Caption = '理想复制数：'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label4: TLabel
    Left = 374
    Top = 19
    Width = 78
    Height = 16
    Caption = '实际复制数：'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label5: TLabel
    Left = 15
    Top = 133
    Width = 65
    Height = 16
    Caption = '复制结果：'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label6: TLabel
    Left = 245
    Top = 132
    Width = 65
    Height = 16
    Caption = '杂交结果：'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label7: TLabel
    Left = 16
    Top = 249
    Width = 65
    Height = 16
    Caption = '变异结果：'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object StringGrid1: TStringGrid
    Left = 16
    Top = 40
    Width = 189
    Height = 87
    ColCount = 6
    DefaultColWidth = 30
    DefaultRowHeight = 20
    FixedCols = 0
    RowCount = 4
    FixedRows = 0
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ScrollBars = ssNone
    TabOrder = 0
  end
  object Button1: TButton
    Left = 296
    Top = 280
    Width = 82
    Height = 25
    Caption = '参生初始种群'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 298
    Top = 328
    Width = 75
    Height = 25
    Caption = '执行算法'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    OnClick = Button2Click
  end
  object StringGrid2: TStringGrid
    Left = 244
    Top = 40
    Width = 47
    Height = 87
    ColCount = 1
    DefaultColWidth = 30
    DefaultRowHeight = 20
    FixedCols = 0
    RowCount = 4
    FixedRows = 0
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ScrollBars = ssNone
    TabOrder = 3
    ColWidths = (
      56)
  end
  object StringGrid3: TStringGrid
    Left = 304
    Top = 40
    Width = 47
    Height = 87
    ColCount = 1
    DefaultColWidth = 30
    DefaultRowHeight = 20
    FixedCols = 0
    RowCount = 4
    FixedRows = 0
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ScrollBars = ssNone
    TabOrder = 4
    ColWidths = (
      56)
  end
  object StringGrid4: TStringGrid
    Left = 382
    Top = 40
    Width = 47
    Height = 87
    ColCount = 1
    DefaultColWidth = 30
    DefaultRowHeight = 20
    FixedCols = 0
    RowCount = 4
    FixedRows = 0
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ScrollBars = ssNone
    TabOrder = 5
    ColWidths = (
      56)
  end
  object StringGrid5: TStringGrid
    Left = 16
    Top = 154
    Width = 189
    Height = 87
    ColCount = 6
    DefaultColWidth = 30
    DefaultRowHeight = 20
    FixedCols = 0
    RowCount = 4
    FixedRows = 0
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ScrollBars = ssNone
    TabOrder = 6
  end
  object StringGrid6: TStringGrid
    Left = 245
    Top = 153
    Width = 189
    Height = 87
    ColCount = 6
    DefaultColWidth = 30
    DefaultRowHeight = 20
    FixedCols = 0
    RowCount = 4
    FixedRows = 0
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ScrollBars = ssNone
    TabOrder = 7
  end
  object StringGrid7: TStringGrid
    Left = 16
    Top = 271
    Width = 189
    Height = 87
    ColCount = 6
    DefaultColWidth = 30
    DefaultRowHeight = 20
    FixedCols = 0
    RowCount = 4
    FixedRows = 0
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ScrollBars = ssNone
    TabOrder = 8
  end
end