unit pinyinfunction //漢字拼音相關的函數定義單元
Function GetHZPY(HZstr: String):String //將任意字符串中的漢字換成拼音首字母(大寫)
function GetPYIndexChar(hzchar: string):char //將一個漢字轉化成拼音首字母(大寫)
function [r_path, r_cost] = dijkstra(pathS, pathE, transmat)
The Dijkstra s algorithm, Implemented by Yi Wang, 2005
This version support detecting _cyclic-paths_
This source code in Delphi 7.0.
Have function to decoding and encoding PDU format to ASCII and from ASCII to PDU.
You can modify it or change it for meet your requirement.