pathfind.pas

来自「带加权的寻路算法演示(DELPHI源码) 关于A*寻路算法的代码在网上有很多」· PAS 代码 · 共 18 行

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)