我想用Delphi写一个简体转火星文的程序，不知道怎么实现，能不能给段代码？

Question

如题：我想用Delphi写一个简体转火星文的程序，不知道怎么实现，能不能给段代码？谢谢

Answer 1

随便搜索了一下，发现了这个网页：
http://www.aies.cn/huoxingwen.htm
看源码，有单字的对照图：
return '啊阿埃挨哎唉哀皑癌蔼矮艾碍爱隘鞍氨安俺按暗..................................
return '娿婀埃挨餀呃哀皑癌蔼婑銰碍嬡隘鞍氨鮟唵洝暗..................................
有了它，转换起来就轻而易举了。

Answer 2

这个网站里面有代码，传换成PASCAL代码就行了。