算法在delphi中的使用，可以给大家一个方法。