谁有pascal版的哈夫曼编码算法？ ( 积分: 100 )

在网上搜了半天都没有pascal版的哈夫曼编码算法，只好在这里找了。

http://www.google.com/codesearch?as_q=Huffman&btnG=%E6%90%9C%E7%B4%A2%E4%BB%A3%E7%A0%81&hl=zh-CN&as_lang=pascal&as_license_restrict=i&as_license=&as_package=&as_filename=&as_case=
全是Delphi的。活学活用Google Code Search会给你很大帮助的。

zqw0117兄真是goole超人啊，谢谢！
没有注释，只有慢慢啃了。