ga.~dfm

只要输入相关参数就可以得到结果

object gaFrm: TgaFrm
  Left = 156
  Top = 57
  Width = 760
  Height = 610
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = #36951#20256#31639#27861
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 40
    Top = 24
    Width = 120
    Height = 13
    Caption = #38543#26426#25968#31181#23376#65288'0'#65374'1'#65289#65306
  end
  object Label2: TLabel
    Left = 40
    Top = 58
    Width = 121
    Height = 13
    Caption = #31181#32676#22823#23567#65288'20~100'#65289#65306
  end
  object Label3: TLabel
    Left = 40
    Top = 93
    Width = 126
    Height = 13
    Caption = #26579#33394#20307#38271#24230#65288'8'#65374'40'#65289#65306
  end
  object Label4: TLabel
    Left = 40
    Top = 128
    Width = 144
    Height = 13
    Caption = #26368#22823#19990#20195#25968#65288'100'#65374'300'#65289#65306
  end
  object Label5: TLabel
    Left = 40
    Top = 162
    Width = 114
    Height = 13
    Caption = #20132#21449#29575#65288'0.2'#65374'0.9'#65289#65306
  end
  object Label6: TLabel
    Left = 40
    Top = 197
    Width = 120
    Height = 13
    Caption = #21464#24322#29575#65288'0.01'#65374'0.1'#65289#65306
  end
  object BitBtn1: TBitBtn
    Left = 464
    Top = 88
    Width = 89
    Height = 49
    Caption = #35745#31639
    TabOrder = 0
    OnClick = BitBtn1Click
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00337000000000
      73333337777777773F333308888888880333337F3F3F3FFF7F33330808089998
      0333337F737377737F333308888888880333337F3F3F3F3F7F33330808080808
      0333337F737373737F333308888888880333337F3F3F3F3F7F33330808080808
      0333337F737373737F333308888888880333337F3F3F3F3F7F33330808080808
      0333337F737373737F333308888888880333337F3FFFFFFF7F33330800000008
      0333337F7777777F7F333308000E0E080333337F7FFFFF7F7F33330800000008
      0333337F777777737F333308888888880333337F333333337F33330888888888
      03333373FFFFFFFF733333700000000073333337777777773333}
    NumGlyphs = 2
  end
  object randomseed: TEdit
    Left = 184
    Top = 20
    Width = 121
    Height = 19
    Ctl3D = False
    ParentCtl3D = False
    TabOrder = 1
    Text = '0.5'
    OnKeyDown = randomseedKeyDown
  end
  object CheckBox1: TCheckBox
    Left = 456
    Top = 32
    Width = 129
    Height = 25
    Caption = #26159#21542#36755#20986#26579#33394#20307#32534#30721
    TabOrder = 2
  end
  object Panel1: TPanel
    Left = 0
    Top = 216
    Width = 752
    Height = 360
    Align = alBottom
    TabOrder = 3
    object Memo1: TMemo
      Left = 1
      Top = 1
      Width = 750
      Height = 358
      Align = alClient
      Lines.Strings = (
        'Memo1')
      TabOrder = 0
    end
  end
  object popsize: TEdit
    Left = 184
    Top = 54
    Width = 121
    Height = 19
    Ctl3D = False
    ParentCtl3D = False
    TabOrder = 4
    Text = '20'
    OnKeyDown = popsizeKeyDown
  end
  object lchrom: TEdit
    Left = 184
    Top = 88
    Width = 121
    Height = 19
    Ctl3D = False
    ParentCtl3D = False
    TabOrder = 5
    Text = '20'
    OnKeyDown = lchromKeyDown
  end
  object maxgen: TEdit
    Left = 184
    Top = 122
    Width = 121
    Height = 19
    Ctl3D = False
    ParentCtl3D = False
    TabOrder = 6
    Text = '200'
    OnKeyDown = maxgenKeyDown
  end
  object pcross: TEdit
    Left = 184
    Top = 156
    Width = 121
    Height = 19
    Ctl3D = False
    ParentCtl3D = False
    TabOrder = 7
    Text = '0.3'
    OnKeyDown = pcrossKeyDown
  end
  object pmutation: TEdit
    Left = 184
    Top = 190
    Width = 121
    Height = 19
    Ctl3D = False
    ParentCtl3D = False
    TabOrder = 8
    Text = '0.02'
    OnKeyDown = pmutationKeyDown
  end
  object BitBtn2: TBitBtn
    Left = 464
    Top = 152
    Width = 89
    Height = 49
    Caption = #26174#31034
    TabOrder = 9
    OnClick = BitBtn2Click
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000130B0000130B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333330070
      7700333333337777777733333333008088003333333377F73377333333330088
      88003333333377FFFF7733333333000000003FFFFFFF77777777000000000000
      000077777777777777770FFFFFFF0FFFFFF07F3333337F3333370FFFFFFF0FFF
      FFF07F3FF3FF7FFFFFF70F00F0080CCC9CC07F773773777777770FFFFFFFF039
      99337F3FFFF3F7F777F30F0000F0F09999937F7777373777777F0FFFFFFFF999
      99997F3FF3FFF77777770F00F000003999337F773777773777F30FFFF0FF0339
      99337F3FF7F3733777F30F08F0F0337999337F7737F73F7777330FFFF0039999
      93337FFFF7737777733300000033333333337777773333333333}
    NumGlyphs = 2
  end
end