main_frm.pas

本源码是一个算法

//----------------------
//单元名  ：Main_frm
//功能    ：主窗体单元，用于显示结果
//创建时间：2003.12.31
//作者    ：zbird
//E-Mail  :[e-mail]
//----------------------
unit Main_frm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Menus, TravelingShop_Unit;

type
  Tfrm_Main = class(TForm)
    PopupMenu1: TPopupMenu;
    mi_CrFindRoad: TMenuItem;
    procedure mi_CrFindRoadClick(Sender: TObject);
    procedure FormPaint(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_Main: Tfrm_Main;
  tvlShop: TTravelingShop;

implementation

uses
  Test;

{$R *.dfm}

procedure Tfrm_Main.mi_CrFindRoadClick(Sender: TObject);
var
  i: integer;
begin
  tvlShop := TTravelingShop.Create(12, frm_Main.Canvas);
  with tvlShop do
  begin
    CreateCities;
//    startcount;//测试效率用 //258ms  //230ms //180ms //30ms
    FindShortTestPath;
//    endcount;//测试效率用  //n=13 //400ms
  end;
end;

procedure Tfrm_Main.FormPaint(Sender: TObject);
begin
  if tvlShop <> nil then
  begin
    tvlShop.Draw;
  end;
end;

end.