delphi 金木水火土 生克用法

本文整理自网络，侵删。

 
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 生成xml 方法 与 Delphi txt文件操作

Delphi中将webbrowser用作网页编辑器

Delphi 在windows平台下实现进程隐藏

Delphi windows 编程[10] - wm_lbuttondown、wm_lbuttonup 和 wm_mousemove 消息

Delphi 遍历目录

Delphi如何判断系统是否安装了flash插件

Delphi生成32位随机数

Delphi 动态调整打印机纸张大小

Delphi判断线程是否释放

Delphi反调试【初级】检测法

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 金木水火土 生克用法