main.dfm

一个求解TSP问题的例子,用delphi编写.有很好的参考价值

      Font.Color = clBlue
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = [fsUnderline]
      ParentFont = False
      ParentShowHint = False
      ShowHint = False
      OnClick = EmailLabelClick
    end
    object TitleLabel: TLabel
      Left = 16
      Top = 16
      Width = 305
      Height = 16
      Alignment = taCenter
      AutoSize = False
      Caption = 'TSP Solver - v 1.2'
      Font.Charset = GREEK_CHARSET
      Font.Color = clMaroon
      Font.Height = -15
      Font.Name = 'Arial'
      Font.Style = [fsBold, fsUnderline]
      ParentFont = False
    end
  end
  object PageControl: TPageControl
    Left = 339
    Top = 8
    Width = 480
    Height = 433
    ActivePage = FlopSheet
    HotTrack = True
    TabOrder = 8
    object GraphSheet: TTabSheet
      Caption = 'Graph'
      object Label6: TLabel
        Left = 8
        Top = 347
        Width = 78
        Height = 16
        Caption = 'Optimal Tour:'
      end
      object Label7: TLabel
        Left = 56
        Top = 377
        Width = 31
        Height = 16
        Caption = 'Cost:'
      end
      object CostEdit: TEdit
        Left = 104
        Top = 374
        Width = 137
        Height = 24
        ReadOnly = True
        TabOrder = 2
      end
      object TourEdit: TEdit
        Left = 104
        Top = 344
        Width = 361
        Height = 24
        ReadOnly = True
        TabOrder = 1
      end
      object GraphGrid: TStringGrid
        Left = 0
        Top = 0
        Width = 472
        Height = 337
        Align = alTop
        DefaultColWidth = 30
        DefaultRowHeight = 20
        Font.Charset = GREEK_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'Arial'
        Font.Style = []
        Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goDrawFocusSelected, goThumbTracking]
        ParentFont = False
        TabOrder = 0
        RowHeights = (
          20
          20
          20
          20
          20)
      end
    end
    object ResultsSheet: TTabSheet
      Caption = 'Results'
      ImageIndex = 1
      object Label8: TLabel
        Left = 0
        Top = 6
        Width = 233
        Height = 13
        Alignment = taCenter
        AutoSize = False
        Caption = 'EXHAUSTIVE'
      end
      object Label9: TLabel
        Left = 240
        Top = 6
        Width = 233
        Height = 13
        Alignment = taCenter
        AutoSize = False
        Caption = 'HEURISTIC'
      end
      object ExhaustiveView: TListView
        Left = 0
        Top = 24
        Width = 233
        Height = 344
        Columns = <
          item
            Caption = 'N'
            Width = 40
          end
          item
            Alignment = taRightJustify
            AutoSize = True
            Caption = 'flop'
          end
          item
            Alignment = taRightJustify
            Caption = 'time(sec)'
            Width = 67
          end
          item
            Alignment = taRightJustify
            AutoSize = True
            Caption = 'cost'
          end>
        SortType = stText
        TabOrder = 0
        ViewStyle = vsReport
        OnInsert = ExhaustiveViewInsert
      end
      object HeuristicView: TListView
        Left = 240
        Top = 24
        Width = 233
        Height = 344
        Columns = <
          item
            Caption = 'N'
            Width = 40
          end
          item
            Alignment = taRightJustify
            AutoSize = True
            Caption = 'flop'
          end
          item
            Alignment = taRightJustify
            Caption = 'time(sec)'
            Width = 67
          end
          item
            Alignment = taRightJustify
            AutoSize = True
            Caption = 'cost'
          end>
        SortType = stText
        TabOrder = 1
        ViewStyle = vsReport
        OnInsert = HeuristicViewInsert
      end
      object ResetExhaustiveButton: TBitBtn
        Left = 0
        Top = 371
        Width = 233
        Height = 25
        Caption = '&Reset'
        Enabled = False
        TabOrder = 2
        OnClick = ResetExhaustiveButtonClick
        Kind = bkRetry
      end
      object ResetHeuristicButton: TBitBtn
        Left = 240
        Top = 371
        Width = 233
        Height = 25
        Caption = '&Reset'
        Enabled = False
        TabOrder = 3
        OnClick = ResetExhaustiveButtonClick
        Kind = bkRetry
      end
    end
    object FlopSheet: TTabSheet
      Caption = 'Graphic (flop - N)'
      ImageIndex = 2
      object FlopChart: TChart
        Left = 0
        Top = 0
        Width = 472
        Height = 369
        BackWall.Brush.Color = clWhite
        BackWall.Brush.Style = bsClear
        Gradient.EndColor = clWhite
        Gradient.StartColor = 8421440
        Gradient.Visible = True
        LeftWall.Brush.Color = clWhite
        Title.Font.Charset = DEFAULT_CHARSET
        Title.Font.Color = clMaroon
        Title.Font.Height = -12
        Title.Font.Name = 'Arial'
        Title.Font.Style = [fsBold]
        Title.Text.Strings = (
          'flop - N')
        BottomAxis.Title.Caption = 'N'
        Chart3DPercent = 10
        LeftAxis.ExactDateTime = False
        LeftAxis.Logarithmic = True
        LeftAxis.Title.Caption = 'flop'
        Legend.TextStyle = ltsPlain
        View3D = False
        Align = alTop
        BorderStyle = bsSingle
        TabOrder = 0
        object ExhaustiveFlopPoint: TPointSeries
          Marks.ArrowLength = 0
          Marks.Visible = False
          SeriesColor = clRed
          Title = 'Exhaustive'
          Pointer.InflateMargins = True
          Pointer.Style = psCross
          Pointer.Visible = True
          XValues.DateTime = False
          XValues.Name = 'X'
          XValues.Multiplier = 1
          XValues.Order = loAscending
          YValues.DateTime = False
          YValues.Name = 'Y'
          YValues.Multiplier = 1
          YValues.Order = loNone
        end
        object HeuristicFlopPoint: TPointSeries
          Marks.ArrowLength = 0
          Marks.Visible = False
          SeriesColor = clBlue
          Title = 'Heuristic'
          Pointer.Brush.Color = clBlue
          Pointer.InflateMargins = True
          Pointer.Style = psDiagCross
          Pointer.Visible = True
          XValues.DateTime = False
          XValues.Name = 'X'
          XValues.Multiplier = 1
          XValues.Order = loAscending
          YValues.DateTime = False
          YValues.Name = 'Y'
          YValues.Multiplier = 1
          YValues.Order = loNone
        end
        object ExhaustiveFlopLine: TLineSeries
          Marks.ArrowLength = 8
          Marks.Visible = False
          DataSource = ExhaustiveFlopPoint
          SeriesColor = clRed
          ShowInLegend = False
          Title = 'ExhaustiveLine'
          Pointer.InflateMargins = True
          Pointer.Style = psCircle
          Pointer.Visible = False
          XValues.DateTime = False
          XValues.Name = 'X'
          XValues.Multiplier = 1
          XValues.Order = loAscending
          YValues.DateTime = False
          YValues.Name = 'Y'
          YValues.Multiplier = 1
          YValues.Order = loNone
        end
        object HeuristicFlopLine: TLineSeries
          Marks.ArrowLength = 8
          Marks.Visible = False
          DataSource = HeuristicFlopPoint
          SeriesColor = clBlue
          ShowInLegend = False
          Title = 'HeuristicLine'
          Pointer.InflateMargins = True
          Pointer.Style = psRectangle
          Pointer.Visible = False
          XValues.DateTime = False
          XValues.Name = 'X'
          XValues.Multiplier = 1
          XValues.Order = loAscending
          YValues.DateTime = False
          YValues.Name = 'Y'
          YValues.Multiplier = 1
          YValues.Order = loNone
        end
      end
      object Log1CheckBox: TCheckBox
        Left = 8
        Top = 379
        Width = 89
        Height = 17
        Caption = '&Logarithmic'
        Checked = True
        State = cbChecked
        TabOrder = 1
        OnClick = Log1CheckBoxClick
      end
      object CopyButton1: TBitBtn
        Left = 216
        Top = 373
        Width = 115
        Height = 28
        Caption = '&Copy'
        TabOrder = 2
        OnClick = CopyButton1Click
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000130B0000130B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF003333330B7FFF
          FFB0333333777F3333773333330B7FFFFFB0333333777F3333773333330B7FFF
          FFB0333333777F3333773333330B7FFFFFB03FFFFF777FFFFF77000000000077
          007077777777777777770FFFFFFFF00077B07F33333337FFFF770FFFFFFFF000
          7BB07F3FF3FFF77FF7770F00F000F00090077F77377737777F770FFFFFFFF039
          99337F3FFFF3F7F777FF0F0000F0F09999937F7777373777777F0FFFFFFFF999
          99997F3FF3FFF77777770F00F000003999337F773777773777F30FFFF0FF0339
          99337F3FF7F3733777F30F08F0F0337999337F7737F73F7777330FFFF0039999
          93337FFFF7737777733300000033333333337777773333333333}
        NumGlyphs = 2
      end
      object SaveButton1: TBitBtn
        Left = 349
        Top = 373
        Width = 115
        Height = 28
        Caption = '&Save as...'
        TabOrder = 3
        OnClick = SaveButton1Click
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000130B0000130B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333330070
          7700333333337777777733333333008088003333333377F73377333333330088