prog_ui.dfm

用遗传算法解决01背包问题

object form_main: Tform_main
  Left = 232
  Top = 192
  Width = 706
  Height = 483
  Caption = #29992#36951#20256#31639#27861#27714#35299#32972#21253#38382#39064
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  DesignSize = (
    698
    449)
  PixelsPerInch = 96
  TextHeight = 13
  object l_ng: TLabel
    Left = 152
    Top = 43
    Width = 60
    Height = 13
    Caption = #36827#21270#20195#25968#65306
  end
  object l_mp: TLabel
    Left = 296
    Top = 43
    Width = 60
    Height = 13
    Caption = #21464#24322#27604#20363#65306
  end
  object l_ngene: TLabel
    Left = 8
    Top = 43
    Width = 60
    Height = 13
    Caption = #31181#32676#25968#37327#65306
  end
  object l_co: TLabel
    Left = 440
    Top = 43
    Width = 60
    Height = 13
    Caption = #23384#20248#27604#20363#65306
  end
  object btn_open: TButton
    Left = 8
    Top = 8
    Width = 113
    Height = 25
    Caption = #25171#24320#25968#25454'(&O)'
    TabOrder = 0
    OnClick = btn_openClick
  end
  object btn_ga: TButton
    Left = 128
    Top = 8
    Width = 113
    Height = 25
    Caption = #36951#20256#31639#27861'(&G)'
    Enabled = False
    TabOrder = 1
    OnClick = btn_gaClick
  end
  object btn_greedy: TButton
    Left = 248
    Top = 8
    Width = 113
    Height = 25
    Caption = #36138#24515#31639#27861'(&R)'
    Enabled = False
    TabOrder = 2
    OnClick = btn_greedyClick
  end
  object text_result: TMemo
    Left = 8
    Top = 64
    Width = 682
    Height = 377
    Anchors = [akLeft, akTop, akRight, akBottom]
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    ScrollBars = ssBoth
    TabOrder = 3
  end
  object btn_save: TButton
    Left = 368
    Top = 8
    Width = 113
    Height = 25
    Caption = #20445#23384#32467#26524'(&S)'
    Enabled = False
    TabOrder = 4
    OnClick = btn_saveClick
  end
  object t_ng: TEdit
    Left = 216
    Top = 40
    Width = 65
    Height = 21
    TabOrder = 5
    Text = '20000'
  end
  object t_mp: TEdit
    Left = 360
    Top = 40
    Width = 65
    Height = 21
    TabOrder = 6
    Text = '0.4'
  end
  object cb_sp: TCheckBox
    Left = 584
    Top = 43
    Width = 97
    Height = 17
    Alignment = taLeftJustify
    Caption = #26174#31034#36807#31243#65306
    TabOrder = 7
  end
  object t_ngene: TEdit
    Left = 72
    Top = 40
    Width = 65
    Height = 21
    TabOrder = 8
    Text = '10'
  end
  object t_co: TEdit
    Left = 504
    Top = 40
    Width = 65
    Height = 21
    TabOrder = 9
    Text = '0.3'
  end
  object dlg_open: TOpenDialog
    Filter = #25991#26412#25991#20214' (.txt)|*.txt'
    Left = 616
    Top = 408
  end
  object dlg_save: TSaveDialog
    Filter = #25991#26412#25991#20214' (.txt)|*.txt|'#26085#24535#25991#20214' (.log)|*.log'
    Left = 648
    Top = 408
  end
end