本文整理自网络,侵删。
function keke(s: char): char;begin result:= ' '; case s of '木': result:= '土'; '火': result:= '金'; '土': result:= '水'; '金': result:= '木'; '水': result:= '火'; end;end;
function sheng(s: char): char;begin result:= ' '; case s of '木': result:= '火'; '火': result:= '土'; '土': result:= '金'; '金': result:= '水'; '水': result:= '木'; end;end;
相关阅读 >>
检查是否在Delphi xe7中启用或禁用了android蓝牙
Delphi idhashmessagedigest, idhash, idglobal md5
Delphi listboxadditems() 不重复添加edit1
Delphi 系统对话框(如浏览目录)被隐藏到主窗体后面造成程序无法操作的临时处理方式
更多相关阅读请进入《Delphi》频道 >>