pathfinddemo.dpr

A*算法寻找最短路径

program PathFindDemo;

{%TogetherDiagram 'ModelSupport_PathFindDemo\default.txaPackage'}
{%TogetherDiagram 'ModelSupport_PathFindDemo\PathFindDemo\default.txaPackage'}
{%TogetherDiagram 'ModelSupport_PathFindDemo\Main\default.txaPackage'}
{%TogetherDiagram 'ModelSupport_PathFindDemo\PathFind\default.txaPackage'}
{%TogetherDiagram 'ModelSupport_PathFindDemo\default.txvpck'}
{%TogetherDiagram 'ModelSupport_PathFindDemo\PathFindDemo\default.txvpck'}
{%TogetherDiagram 'ModelSupport_PathFindDemo\PathFind\default.txvpck'}
{%TogetherDiagram 'ModelSupport_PathFindDemo\Main\default.txvpck'}

uses
  Forms,
  Main in 'Main.pas' {Form1},
  PathFind in 'PathFind.pas';

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.