本文整理自网络,侵删。
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 firedac sqlite不能插入"&"符号
Delphi 从twebbrowser webbrowser得到全部html源码
更多相关阅读请进入《Delphi》频道 >>