⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 ga.dfm

📁 此遗传算法功能强大
💻 DFM
字号:
object Form1: TForm1
  Left = 207
  Top = 127
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = #36951#20256#31639#27861
  ClientHeight = 552
  ClientWidth = 777
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = -1
    Top = 0
    Width = 778
    Height = 537
    TabOrder = 0
    object Label1: TLabel
      Left = 16
      Top = 6
      Width = 60
      Height = 13
      Caption = #30446#26631#20989#25968#65306
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label12: TLabel
      Left = 81
      Top = 4
      Width = 75
      Height = 16
      Caption = 'f(x)=x^2-4x+4'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object GroupBox1: TGroupBox
      Left = 16
      Top = 83
      Width = 177
      Height = 209
      Caption = #36951#20256#31639#27861#21442#25968
      TabOrder = 0
      object Label2: TLabel
        Left = 16
        Top = 31
        Width = 60
        Height = 13
        Caption = #31181#32676#20010#25968#65306
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label3: TLabel
        Left = 16
        Top = 68
        Width = 60
        Height = 13
        Caption = #31181#32676#20195#25968#65306
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label4: TLabel
        Left = 14
        Top = 142
        Width = 60
        Height = 13
        Caption = #20132#21449#27010#29575#65306
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label5: TLabel
        Left = 13
        Top = 177
        Width = 60
        Height = 13
        Caption = #21464#24322#27010#29575#65306
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label6: TLabel
        Left = 15
        Top = 105
        Width = 60
        Height = 13
        Caption = #22522#22240#38271#24230#65306
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object ComboBox1: TComboBox
        Left = 88
        Top = 27
        Width = 73
        Height = 21
        Hint = '[50,500]'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ItemHeight = 13
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
        Text = '50'
      end
      object ComboBox2: TComboBox
        Left = 88
        Top = 64
        Width = 73
        Height = 21
        Hint = '[100,1000]'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ItemHeight = 13
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 1
        Text = '100'
        Items.Strings = (
          '')
      end
      object ComboBox3: TComboBox
        Left = 87
        Top = 102
        Width = 73
        Height = 21
        Hint = '[8,31]'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ItemHeight = 13
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 2
        Text = '8'
        Items.Strings = (
          '8'
          '9'
          '10'
          '11'
          '12'
          '13'
          '14'
          '15'
          '16'
          '17'
          '18'
          '19'
          '20'
          '25'
          '30'
          '31')
      end
      object ComboBox4: TComboBox
        Left = 87
        Top = 138
        Width = 73
        Height = 21
        Hint = '[0.5,1.0)'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ItemHeight = 13
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 3
        Text = '0.5'
        Items.Strings = (
          '0.5'
          '0.6'
          '0.7'
          '0.8'
          '0.9'
          '0.99')
      end
      object ComboBox5: TComboBox
        Left = 86
        Top = 174
        Width = 73
        Height = 21
        Hint = '[0.001,0.05]'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ItemHeight = 13
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 4
        Text = '0.001'
        Items.Strings = (
          '0.001'
          '0.002'
          '0.004'
          '0.006'
          '0.008'
          '0.01'
          '0.015'
          '0.02'
          '0.025'
          '0.03'
          '0.035'
          '0.04'
          '0.045'
          '0.05')
      end
    end
    object GroupBox2: TGroupBox
      Left = 16
      Top = 302
      Width = 177
      Height = 139
      Caption = #32479#35745#32467#26524
      TabOrder = 1
      object Label7: TLabel
        Left = 11
        Top = 22
        Width = 60
        Height = 13
        Caption = #21464#24322#27425#25968#65306
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label8: TLabel
        Left = 11
        Top = 49
        Width = 60
        Height = 13
        Caption = #20132#21449#27425#25968#65306
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label9: TLabel
        Left = 15
        Top = 80
        Width = 55
        Height = 13
        Caption = #26368#20248'X'#20540#65306
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label13: TLabel
        Left = 15
        Top = 108
        Width = 55
        Height = 13
        Caption = #26368#20248'Y'#20540#65306
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Edit1: TEdit
        Left = 85
        Top = 18
        Width = 73
        Height = 21
        TabOrder = 0
        Text = '0'
      end
      object Edit2: TEdit
        Left = 85
        Top = 47
        Width = 73
        Height = 21
        TabOrder = 1
        Text = '0'
      end
      object Edit3: TEdit
        Left = 85
        Top = 77
        Width = 73
        Height = 21
        TabOrder = 2
        Text = '0'
      end
      object Edit6: TEdit
        Left = 84
        Top = 107
        Width = 73
        Height = 21
        TabOrder = 3
        Text = '0'
      end
    end
    object GroupBox3: TGroupBox
      Left = 16
      Top = 448
      Width = 177
      Height = 81
      Caption = #27979#35797
      TabOrder = 2
      object Label14: TLabel
        Left = 6
        Top = 19
        Width = 36
        Height = 13
        Caption = #36895#24230#65306
      end
      object StartButton: TButton
        Left = 24
        Top = 45
        Width = 49
        Height = 33
        Caption = #24320#22987
        TabOrder = 0
        OnClick = StartButtonClick
      end
      object ResetButton: TButton
        Left = 96
        Top = 46
        Width = 49
        Height = 33
        Caption = #37325#35774
        TabOrder = 1
        OnClick = ResetButtonClick
      end
      object TrackBar1: TTrackBar
        Left = 40
        Top = 13
        Width = 129
        Height = 33
        Hint = '0ms'
        Max = 1000
        ParentShowHint = False
        Frequency = 100
        ShowHint = True
        TabOrder = 2
      end
    end
    object GroupBox4: TGroupBox
      Left = 227
      Top = 3
      Width = 545
      Height = 529
      Caption = #36807#31243#32467#26524
      TabOrder = 3
      Visible = False
      object ListView1: TListView
        Left = 2
        Top = 16
        Width = 540
        Height = 510
        BevelEdges = [beLeft, beTop]
        Columns = <
          item
            Caption = #31532#20960#20195
            Width = 55
          end
          item
            AutoSize = True
            Caption = 'X'#65288#20540#65289
          end
          item
            AutoSize = True
            Caption = #36866#24212#24230#24635#21644
          end
          item
            AutoSize = True
            Caption = #24179#22343#36866#24212#24230
          end
          item
            AutoSize = True
            Caption = #26368#20339#36866#24212#24230#20989#25968#20540
          end>
        GridLines = True
        TabOrder = 0
        ViewStyle = vsReport
      end
    end
    object GroupBox5: TGroupBox
      Left = 16
      Top = 24
      Width = 177
      Height = 49
      Caption = #21462#20540#21306#38388
      TabOrder = 4
      object Label10: TLabel
        Left = 8
        Top = 24
        Width = 29
        Height = 13
        Caption = 'Min'#65306
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label11: TLabel
        Left = 88
        Top = 24
        Width = 32
        Height = 13
        Caption = 'Max'#65306
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Edit4: TEdit
        Left = 34
        Top = 20
        Width = 47
        Height = 21
        Hint = '[-1000000000,Max)'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
        Text = '0'
      end
      object Edit5: TEdit
        Left = 120
        Top = 20
        Width = 47
        Height = 21
        Hint = '(Min,1000000000]'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 1
        Text = '50'
      end
    end
    object GroupBox6: TGroupBox
      Left = 227
      Top = 3
      Width = 545
      Height = 529
      Caption = #23547#20248#36807#31243
      TabOrder = 5
      object PaintBox1: TPaintBox
        Left = 11
        Top = 16
        Width = 522
        Height = 507
        Color = clBlack
        ParentColor = False
      end
    end
  end
  object ProgressBar1: TProgressBar
    Left = 0
    Top = 535
    Width = 777
    Height = 17
    TabOrder = 1
  end
  object MainMenu1: TMainMenu
    Left = 472
    Top = 368
    object N1: TMenuItem
      Caption = #30446#26631#20540'(&F)'
      object N2: TMenuItem
        Caption = #26497#23567#20540'(&S)'
        RadioItem = True
        ShortCut = 16467
        OnClick = N2Click
      end
      object N5: TMenuItem
        Caption = #26497#22823#20540'(&L)'
        Checked = True
        ShortCut = 16460
        OnClick = N5Click
      end
    end
    object N6: TMenuItem
      Caption = #26174#31034'(&S)'
      object N7: TMenuItem
        Caption = #36807#31243#32467#26524'(&R)'
        ShortCut = 16466
        OnClick = N7Click
      end
      object N8: TMenuItem
        Caption = #23547#20248#36807#31243'(&E)'
        Checked = True
        ShortCut = 16453
        OnClick = N8Click
      end
    end
    object N3: TMenuItem
      Caption = #24110#21161'(&H)'
      object N4: TMenuItem
        Caption = #20851#20110'(&A)'
        OnClick = N4Click
      end
    end
  end
  object XPManifest1: TXPManifest
    Left = 544
    Top = 288
  end
end

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -