求A*算法的delphi原代码：

Question

看了一些关于A*算法的翻译
只有些原理，原理是看懂了，可是弄了1天实在写不出来，请教高手给些A*算法的原代码，最好能给个实例，万分感谢！

Answer 1

这儿有C++的例子代码与简介http://dev.gameres.com/Program/Abstract/Arithmetic/A%20Pathfinding%20for%20Beginners.htm

Answer 2

A*算法就是游戏里智能人工算法，我需要delphi的，大家帮帮忙