学完delphi做的,比较简单,供初学者参考,谢谢你的支持!