类似A寻址的求最短路径的算法,语言delphi