pathfind.pas

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

unit PathFind;

interface

uses
  Windows, Classes;

type
  TPath = array of TPoint; //

  TPathMapCell = record //
    Distance: Integer; //
    Direction: Integer;
  end;

  TPathMap = array of array of TPathMapCell; // 路径图元存储数组

  {(X,Y)