Delphi公共使用函数 08年有发过一次 近几年又有大量更新 供大家参考学习