main.dfm

带加权的寻路算法演示(DELPHI源码) 关于A*寻路算法的代码在网上有很多

object Form1: TForm1
  Left = 192
  Top = 107
  Caption = #28779#20154#24037#20316#23460#25552#20379'(http://www.huosoft.com)'
  ClientHeight = 539
  ClientWidth = 683
  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 Bevel1: TBevel
    Left = 8
    Top = 47
    Width = 137
    Height = 178
    Shape = bsFrame
  end
  object SpeedButton1: TSpeedButton
    Left = 8
    Top = 8
    Width = 137
    Height = 22
    Caption = #29983#25104#38543#26426#22320#22270
    OnClick = SpeedButton1Click
  end
  object SpeedButton2: TSpeedButton
    Left = 16
    Top = 64
    Width = 121
    Height = 22
    GroupIndex = 1
    Glyph.Data = {
      F6000000424DF600000000000000760000002800000010000000100000000100
      04000000000080000000C40E0000C40E00001000000000000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00800000000000
      00080FFFFFFFFFFFFFF00FFFFFFFFFFFFFF00FFFFFFFFFFFFFF00FFFFFFFFFFF
      FFF00FFFFFFFFFFFFFF00FFFFFFFFFFFFFF00FFFFFFFFFFFFFF00FFFFFFFFFFF
      FFF00FFFFFFFFFFFFFF00FFFFFFFFFFFFFF00FFFFFFFFFFFFFF00FFFFFFFFFFF
      FFF00FFFFFFFFFFFFFF00FFFFFFFFFFFFFF08000000000000008}
    Margin = 1
    Transparent = False
    OnClick = SetWorkMode
  end
  object SpeedButton3: TSpeedButton
    Tag = 1
    Left = 16
    Top = 96
    Width = 121
    Height = 22
    GroupIndex = 1
    Glyph.Data = {
      F6000000424DF600000000000000760000002800000010000000100000000100
      04000000000080000000C40E0000C40E00001000000000000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00800000000000
      00080FFFFFFFFFFFFFF00FFFFFFFFFFFFFF00FFFFFFFFFFFFFF00FFFFFFFFFFF
      FFF00FFFFFFFFFFFFFF00FFFFFFFFFFFFFF00FFFFFFFFFFFFFF00FFFFFFFFFFF
      FFF00FFFFFFFFFFFFFF00FFFFFFFFFFFFFF00FFFFFFFFFFFFFF00FFFFFFFFFFF
      FFF00FFFFFFFFFFFFFF00FFFFFFFFFFFFFF08000000000000008}
    Margin = 1
    OnClick = SetWorkMode
  end
  object SpeedButton4: TSpeedButton
    Tag = 2
    Left = 16
    Top = 128
    Width = 121
    Height = 22
    GroupIndex = 1
    Glyph.Data = {
      F6000000424DF600000000000000760000002800000010000000100000000100
      04000000000080000000C40E0000C40E00001000000000000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00800000000000
      00080FFFFFFFFFFFFFF00FFFFFFFFFFFFFF00FFFFFFFFFFFFFF00FFFFFFFFFFF
      FFF00FFFFFFFFFFFFFF00FFFFFFFFFFFFFF00FFFFFFFFFFFFFF00FFFFFFFFFFF
      FFF00FFFFFFFFFFFFFF00FFFFFFFFFFFFFF00FFFFFFFFFFFFFF00FFFFFFFFFFF
      FFF00FFFFFFFFFFFFFF00FFFFFFFFFFFFFF08000000000000008}
    Margin = 1
    OnClick = SetWorkMode
  end
  object SpeedButton5: TSpeedButton
    Tag = 3
    Left = 16
    Top = 160
    Width = 121
    Height = 22
    GroupIndex = 1
    Glyph.Data = {
      F6000000424DF600000000000000760000002800000010000000100000000100
      04000000000080000000C40E0000C40E00001000000000000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00800000000000
      00080FFFFFFFFFFFFFF00FFFFFFFFFFFFFF00FFFFFFFFFFFFFF00FFFFFFFFFFF
      FFF00FFFFFFFFFFFFFF00FFFFFFFFFFFFFF00FFFFFFFFFFFFFF00FFFFFFFFFFF
      FFF00FFFFFFFFFFFFFF00FFFFFFFFFFFFFF00FFFFFFFFFFFFFF00FFFFFFFFFFF
      FFF00FFFFFFFFFFFFFF00FFFFFFFFFFFFFF08000000000000008}
    Margin = 1
    OnClick = SetWorkMode
  end
  object SpeedButton6: TSpeedButton
    Tag = 4
    Left = 16
    Top = 192
    Width = 121
    Height = 22
    GroupIndex = 1
    Glyph.Data = {
      F6000000424DF600000000000000760000002800000010000000100000000100
      04000000000080000000C40E0000C40E00001000000000000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00800000000000
      00080FFFFFFFFFFFFFF00FFFFFFFFFFFFFF00FFFFFFFFFFFFFF00FFFFFFFFFFF
      FFF00FFFFFFFFFFFFFF00FFFFFFFFFFFFFF00FFFFFFFFFFFFFF00FFFFFFFFFFF
      FFF00FFFFFFFFFFFFFF00FFFFFFFFFFFFFF00FFFFFFFFFFFFFF00FFFFFFFFFFF
      FFF00FFFFFFFFFFFFFF00FFFFFFFFFFFFFF08000000000000008}
    Margin = 1
    OnClick = SetWorkMode
  end
  object SpeedButton7: TSpeedButton
    Tag = -1
    Left = 8
    Top = 240
    Width = 137
    Height = 22
    GroupIndex = 1
    Down = True
    Caption = #21019#24314#36335#24452
    OnClick = SetWorkMode
  end
  object Label1: TLabel
    Left = 16
    Top = 40
    Width = 48
    Height = 13
    Caption = #22320#22270#32534#36753
  end
  object Label2: TLabel
    Left = 16
    Top = 408
    Width = 60
    Height = 13
    Caption = #28779#20154#24037#20316#23460
  end
  object Label3: TLabel
    Left = 16
    Top = 427
    Width = 116
    Height = 13
    Caption = 'http://www.huosoft.com'
  end
  object DrawGrid1: TDrawGrid
    Left = 152
    Top = 8
    Width = 523
    Height = 523
    ColCount = 40
    DefaultColWidth = 12
    DefaultRowHeight = 12
    DefaultDrawing = False
    FixedCols = 0
    RowCount = 40
    FixedRows = 0
    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine]
    TabOrder = 0
    OnDrawCell = DrawGrid1DrawCell
    OnMouseDown = DrawGrid1MouseDown
    OnMouseMove = DrawGrid1MouseMove
  end
  object Timer1: TTimer
    Interval = 2000
    OnTimer = Timer1Timer
    Left = 24
    Top = 288
  end
end