Delphi货郎担算法程序，源代码免费下载，最开始在毕业设计中发现的，后来又经过了一些修正，现在可直接编译，没使用第三方控件类库，截图大家可以先看下，部分代码释义：Cities:arrayofTCity;//城市数组[1..x]CitiesDistance:arrayofarrayofreal;//各个城市间的距离[1..x,1..x]CitiesToured:arrayofinteger;//是否已经遍历过CityNumber:integer;//城市的数目ShortTestLength:real;//“最短”路径的长度ShortestDistance:arrayofreal;//最短路径Tour